Uh, šta reći a ne zaplakati.
Moje znanje excel-a je skromno a da ne pričam o VB. Probao sam otvoriti poslati fajl ali mi prijavljuje grešku a i kopiranje poslatog koda mi takođe ne ide od ruke.
Kako vas ne bih nervirao mojim ne znanjem, molim za malu pomoć.
1. Kako korak po korak da ubacim kod u VB?
2. Kako da kopiram rang ćelija iz jedne kartice u drugu ali da mi ne kopira prazne ćelije.
Na netu sam našao ovaj kod koji bi trebalo prepraviti da uzme u opseg samo željeni rang ćelija koje se kopiraju u određeni rang ćelija na drugom listu.
P.S. kada kopiram ovaj kod prijavljuje mi grešku u 3. redu. Ne znam da li prvo treba kreirati dugme koje pokreće kod pa ga vezati sa makroom ili može i obrnuto kao na sledećem videu.
Primer
Hvala unapred za pomoć
Code:
syb copyNonBlankData()
Dim erow As Long, lastrow As Long, i As Long
lastrow = Sheet1.Cells(Rows.Count, 1).End(x1Up).Row
For i = 2 To lastrow
If Sheet1.Cells(i, 1) <> "" Then
Sheets("Prva").Range(Cells(i, 1), Cells(i, 2)).Copy
Sheets("Druga").Activate
erow = Sheet2.Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Sheets("Druga").Range(Cells(erow, 1), Cells(erow, 2))
Sheets("Prva").Activate
End If
Next i
Application.CutCopyMode = False
End Sub