automatické vypisování v druhém listě v excelu Vyřešeno

[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.

[Reklama]

[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

[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

[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š?

[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

[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"?

[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) ---

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

[cmuch]

Tak snad takto.
Udaje z listu "Zakázky" se zkopírují, potom se odstrani duplicity a vše seřadí A-Z

[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

[cmuch]

To lze,
stačí odstranit tento řádek Range("E1").Select v makru.

[luko02420]

Diky to je super dekuji za ochotu a vybornou radu

[cmuch]

Pokud vše tak uzamkni.

Jinak není za co děkovat.

Když můžu, pomůžu