Stránka 1 z 1
automatické vypisování v druhém listě v excelu
Napsal: 21 bře 2012 06:45
od luko02420
Dobrý den, potřeboval bych poradit s automatickým vyplňováním dat z jednoho listu do druhého tak, že když v listě 1 sloupec C vypíši zákazníka aby se mě automaticky přenesl do listu 2 sloupce A, ale pouze jednou. viz příloha. tz , že by to mělo nějak filtrovat totožné záznamy. V listě 1 záznamy nebudou řazeny podle abecedy v listě 2 by mohli být řazeny podle abecedy. Snad jsem to vysvětlil správně co potřebuji. Děkuji všem za jakokoliv radu.
Re: automatické vypisování v druhém listě v excelu
Napsal: 21 bře 2012 17:09
od cmuch
Ahoj,
zkus toto makro
Kód: Vybrat vše
Sub Makro()
'
Sheets("List1").Select
Columns("C:C").Copy
Sheets("List2").Select
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
Range("A1").Select
Sheets("List1").Select
End Sub
Re: automatické vypisování v druhém listě v excelu
Napsal: 21 bře 2012 18:08
od luko02420
Děkuji hned to jdu vyzkouset zatim jsem zkoušel tvorit neco sam sice to funguje ale je to mozna krkolomne. jeste bych to potreboval rozchodit tak aby se to spoustelo bud pri otevreni nebo to jelo automaticky.
Kazdopadne dekuji mockrat za ochotu
muj vytvor:
Kód: Vybrat vše
Sub oznaceni()
'
' oznaceni Makro
'
'
Range("E5:E130").Select
ActiveSheet.Range("$E$5:$E$130").RemoveDuplicates Columns:=1, Header:=xlNo
Sheets("Zakázky").Select
Range("E5:E130").Select
Selection.Copy
Sheets("Efektivita zákazníků").Select
Range("B35").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Efektivita zákazníků").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Efektivita zákazníků").Sort.SortFields.Add Key:= _
Range("B35"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveSheet.Range("$B$35:$B$160").RemoveDuplicates Columns:=1, Header:=xlNo
With ActiveWorkbook.Worksheets("Efektivita zákazníků").Sort
.SetRange Range("B35:B160")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Re: automatické vypisování v druhém listě v excelu
Napsal: 21 bře 2012 19:23
od cmuch
Nebylo by lepsi to zpouštět po přidání zákazníka v tom zdrojovém sloupci?
To máš schválně, že ve zdroji to zbavíš už duplicit, pak to zkopíruješ, seřadíš, zbavíš opět duplicit a znova seřazuješ?
Re: automatické vypisování v druhém listě v excelu
Napsal: 21 bře 2012 20:15
od luko02420
ne nemam, ani jsem jsi nevsiml zkousim to jak se da. pokud by to slo nejak spoustet automaticky treba i tak jak pises rad uvitam pomoc. predem moc dekuji
Re: automatické vypisování v druhém listě v excelu
Napsal: 21 bře 2012 20:22
od cmuch
Ještě pro upřesnění napiš ty oblasti, tzn. zdrojová je ta co máš v makru "E5:E130" napevno nebo se bude rozrůstat
a cílová kde bude začínat, bude zase ta tvoje "B35"?
Re: automatické vypisování v druhém listě v excelu
Napsal: 21 bře 2012 20:29
od luko02420
Ta zdrojová bude vzdy zacinat v E5 a pro jistotu ten rozsah by mohl byt vetsi E200 a potom uz bude pevna a cilova bude na A2
--- Doplnění předchozího příspěvku (22 Bře 2012 07:13) ---
cmuch píše:Ještě pro upřesnění napiš ty oblasti, tzn. zdrojová je ta co máš v makru "E5:E130" napevno nebo se bude rozrůstat
a cílová kde bude začínat, bude zase ta tvoje "B35"?
to cmuch: tak ten moje reseni nefunguje, kdyz pridam zakaznika tak se me neprenese do druheho listu. Tak jsem v pasti
Re: automatické vypisování v druhém listě v excelu
Napsal: 22 bře 2012 10:35
od cmuch
Tak snad takto.
Udaje z listu "Zakázky" se zkopírují, potom se odstrani duplicity a vše seřadí A-Z
Re: automatické vypisování v druhém listě v excelu
Napsal: 22 bře 2012 12:27
od luko02420
jj to je ono dekuji mockrát. Jenom pro info neslo by jeste odstranit aby po zadani udaje v liste zakazky se to nevracelo na prvni bunku tj E1?
Pokud ne tak i tak me to bohate staci. jeste jednou dekuji
Re: automatické vypisování v druhém listě v excelu
Napsal: 22 bře 2012 13:03
od cmuch
To lze,
stačí odstranit tento řádek Range("E1").Select v makru.
Re: automatické vypisování v druhém listě v excelu
Napsal: 22 bře 2012 13:22
od luko02420
Diky to je super dekuji za ochotu a vybornou radu
Re: automatické vypisování v druhém listě v excelu Vyřešeno
Napsal: 22 bře 2012 18:12
od cmuch
Pokud vše tak uzamkni.
Jinak není za co děkovat.
Když můžu, pomůžu
