[es] - Prosto (ali slozeno) pitanje

zage
Zoran Nastevski
Makedonija Demir Hisar

Član broj: 56597
Poruke: 148
62.220.204.*

Sajt: idividi.com.mk

+1 Profil

^{02.04.2012. u 11:33 - pre 146 meseci}

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...

Prikačeni fajlovi

zage.xlsx - 7.95k

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: Prosto (ali slozeno) pitanje

^{02.04.2012. u 12:12 - pre 146 meseci}

Ovako nesto bi resilo problem

[email protected]=

Prikačeni fajlovi

zage.xlsm - 16.75k

Odgovor na temu

zage
Zoran Nastevski
Makedonija Demir Hisar

Član broj: 56597
Poruke: 148
62.220.204.*

Sajt: idividi.com.mk

+1 Profil

Re: Prosto (ali slozeno) pitanje

^{02.04.2012. u 12:20 - pre 146 meseci}

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...

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: Prosto (ali slozeno) pitanje

^{02.04.2012. u 12:36 - pre 146 meseci}

Ako mislis na upis sortiranog rezultata, bez praznih polja izmedju onda bi ceo kod mogao izgledati ovako

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

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.

[email protected]=

Odgovor na temu