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

neca
ERP Consultant
Smederevo

Član broj: 1460
Poruke: 1283

ICQ: 129255214

+92 Profil

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

^{30.08.2012. u 22:09 - pre 141 meseci}

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.

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

copy with critera - VBA

^{04.09.2012. u 17:17 - pre 141 meseci}

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

Prikačeni fajlovi

copyToNameSheetWithCriteria.xls - 47k

Odgovor na temu

neca
ERP Consultant
Smederevo

Član broj: 1460
Poruke: 1283

ICQ: 129255214

+92 Profil

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

^{06.09.2012. u 07:13 - pre 141 meseci}

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

Odgovor na temu