Citat:
neca: Da li je to moguće i ako nije jednostavno neka mi neko bar da neke smernice gde da gledam i odakle da počnem ili bar neki primer gde se to vidi kako je napravljeno.
Vidim da nitko ne reagira mada ima ovdje dosta programera u VBA (ili su još na godišnjem :-)
Možda možeš problem pokušati riješiti pomoću
VBA u Excelu
Evo nešto za prvu pomoć ali nije sve završeno (i ja sam ovo dobio :)
Prvi macro radi OK.
Code:
Sub CopyDataToOtherSheet()
Dim i As Integer, xy As Integer
i = Evaluate("COUNTA(B:B)")
Select Case Range("A1").Value
'-----------------------------------------------------------------------
Case "A" 'sheet A
Range("B1:C" & i).Copy
wsAAA.Select
xy = Evaluate("COUNTA(A:A)") + 1
Range("A" & xy).PasteSpecial xlPasteValues
Application.CutCopyMode = False
'------------------------------------------------------------------------
Case "B" 'sheet B
Range("B1:C" & i).Copy
wsBBB.Select
xy = Evaluate("COUNTA(A:A)") + 1
Range("A" & xy).PasteSpecial xlPasteValues
Application.CutCopyMode = False
'-------------------------------------------------------------------------
End Select
End Sub
ili ovaj
macro
Code:
Sub CopyDataToOtherSheet2()
'kopiranje podataka u drugi Sheet pod nazivom koji se nalazi kao criteria u A1
If Sheets("Sheet1").Range("A1").Value = "A" Then 'ako se u A1 nalazi uvjet tj ako je u A1 vrijednost A
Set Rng = Range([A1], Range("A" & Rows.Count).End(xlUp)) 'trazi prvi prazan red u Sheet-u A
Sheet1.Range("B1:C1").Copy wsAAA.Range("A1").End(xlDown).Offset(1, 0) 'kopira range B1:C1 na Sheet A U PRVI PRAZAN RED ISPOD
End If
Sheet1.Select
If Sheets("Sheet1").Range("A1").Value = "B" Then 'ako se u A1 nalazi uvjet tj ako je u A1 vrijednost B
Set Rng = Range([A1], Range("A" & Rows.Count).End(xlUp)) 'trazi prvi prazan red u Sheet-u B
Sheet1.Range("B1:C1").Copy wsBBB.Range("A1").End(xlDown).Offset(1, 0) 'kopira range B1:C1 na Sheet B
End If
Sheet1.Select
End Sub