Padajuci meniji i kopiranje sadržaja u odredjeni sheet u zavisnosti od toga šta izaberem u meniju

Padajuci meniji i kopiranje sadržaja u odredjeni sheet u zavisnosti od toga šta izaberem u meniju 30.08.2012. u 23:09 · pre 172 meseca #1

Pozdrav,
kreirao sam padajući meni gde imam na primer 5 imena i prezimena i imam isto toliko sheetova koji se zovu isto kao ime i prezime u padajućem meniju.
Sad mi treba pomoć oko kopiranja sadržaja u različite sheetove.
Dakle, ako izaberem iz padajućeg menija "Nenad Marković" da mi on ceo red iskopira u Nenad Marković sheet, a ako izaberem drugo ime i prezime, da mi to isto kopira u odgovarajući sheet.
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.
Hvala unapred.

copy with critera - VBA 04.09.2012. u 18:17 · pre 172 meseca #2

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

copyToNameSheetWithCriteria.xls47k

1

Padajuci meniji i kopiranje sadržaja u odredjeni sheet u zavisnosti od toga šta izaberem u meniju 06.09.2012. u 08:13 · pre 172 meseca #3

Isprobacu pa cu se javiti....
hvala svakako :)
Ja sam isprobavao nesto kod kuce, i uspeo sam da dodjem donekle, ali sam onda napravio sebi drugi problem, Da kad u redu "1" izaberem Markovic Nenad on mi iskopira u odgovarajuci sheet, u redu 2 izaberem neko ime, on mi isto kopira u odgovarajuci sheet ali u drugom redu, znaci prvi ostaje prazan, pa kad u redu 3 izaberem opet Markovic Nenad onda mi se on kopira u red 3 u odgovarajucem sheetu pa imam prazna polja :)
Okačiću šta sam radio kad dodjem kući čisto neka stoji, možda nekome nekad zatreba...:)

Forum kao aplikacija na telefonu

Srodne teme