Koja formula ili macro ako u koloni recimo ,,A,, ima upisano brojeve ili reci koje nisu upisane po redu u redovima (imamo po nekad jedan ,dva ili vise redova razlike)da taj rezultat automatski prikaze recimo u koloni ,,E,, ali bez skakanja redova...
Prosto (ali slozeno) pitanje
Zaključano
Zakačeno
Ovako nesto bi resilo problem
Potpis
Uvek tu ,,FOX028,, resava problem ,ostajem bez reci....sve najbolje....
Usput samo jos mala stvar ...sta treba dodati u macro da recimo upis pocinje recimo ne sa prvog reda nego sa 5 ili 7...
Usput samo jos mala stvar ...sta treba dodati u macro da recimo upis pocinje recimo ne sa prvog reda nego sa 5 ili 7...
Ako mislis na upis sortiranog rezultata, bez praznih polja izmedju onda bi ceo kod mogao izgledati ovako
Sada sam ti u kodu ubacio da kada kliknes da dugme Sortiraj da mozes odabrati i od kog reda zelis da ti pocne ispis, ako ne uneses nijedan broj ili kliknes na Cancle bice odabran prvi red.
Code:
Sub Sortiraj_Click()
Dim Podatak As Variant
Dim Kolona As String
Dim i As Integer
If Selection.Rows.Count < 2 Then
MsgBox "Niste selektovali kolonu iz koje se sortiraju podaci!", vbInformation, "Greska"
Exit Sub
End If
Kolona = InputBox("Uneti redni broj kolone u kojoj ispisati podatke:", "Izbor kolone")
i = CInt(InputBox("Uneti od kog reda treba poceti ispis podatatka:", "Pocetak ispisa podataka"))
If i < 1 Then: i = 1
For Each Podatak In Selection
If Podatak <> "" Then
Cells(i, CInt(Kolona)) = Podatak
i = i + 1
End If
Next
End Sub
Sub Sortiraj_Click()
Dim Podatak As Variant
Dim Kolona As String
Dim i As Integer
If Selection.Rows.Count < 2 Then
MsgBox "Niste selektovali kolonu iz koje se sortiraju podaci!", vbInformation, "Greska"
Exit Sub
End If
Kolona = InputBox("Uneti redni broj kolone u kojoj ispisati podatke:", "Izbor kolone")
i = CInt(InputBox("Uneti od kog reda treba poceti ispis podatatka:", "Pocetak ispisa podataka"))
If i < 1 Then: i = 1
For Each Podatak In Selection
If Podatak <> "" Then
Cells(i, CInt(Kolona)) = Podatak
i = i + 1
End If
Next
End Sub
Sada sam ti u kodu ubacio da kada kliknes da dugme Sortiraj da mozes odabrati i od kog reda zelis da ti pocne ispis, ako ne uneses nijedan broj ili kliknes na Cancle bice odabran prvi red.