Excel VBA - makro pro přepsání dat

[Branscombe]

Typ bude vždy dlouhé celé osmimístné číslo
Tabulka bude obsahovat vždy proměnlivý počet sloupců.

Omlouvám se za neupřesněné zadání ...

[Reklama]

[navstevnik]

Upraveno v priloze, porad to je pracovni verze, nutno jeste osetrit nenalezeni data a typu v Tabulce.

[Branscombe]

Super, funguje jak má ... Musel jsem ještě přidat jeden řádek a sloupec, ale to jsem si již v makru ošetřil. Díky moc a já teď budu ještě chvíli testovat ... Fakt jsi dobrej, ty se tím živíš ??

[navstevnik]

Protoze je potreba osetrit chybove stavy, pripoj sesit s tvymi upravami, at to mohu dokoncit

[Branscombe]

Sešit asi připojit nemohu z důvodu ochrany firemních zájmů Úpravy ohledně přidání řádku a sloupce a další jsem si upravil, ale mám problém s dynamickým definováním listů:

Zadal jsem následující:

Kód: Vybrat vše

Dim SS_list As String, Line  As String
 
Set SS_list = Worksheets("Main").Range("G3").Value
Set Line = Worksheets("Main").Range("H3").Value


A vyhazuje mi to s chybou "Compile error: Object required"

Kde je chyba ??

[navstevnik]

Chyba je v deklaraci i v prirazeni k objektu. Ukazka (na netu najdes dost informaci):

Kód: Vybrat vše

Option Explicit

Sub Ukazka()
  Dim Wbk As Workbook
  Dim SS_List As Worksheet
  Dim MyRow As Range
  Dim JmenoListu As String
  'objekt sesit
  Set Wbk = ThisWorkbook
  Debug.Print Wbk.Name
  'nebo
  Set Wbk = ActiveWorkbook
  Debug.Print Wbk.Name

  'objekt list
  Set SS_List = ActiveWorkbook.Worksheets("list1")
  Debug.Print SS_List.Name
  ' nebo: nazev listu
  Set SS_List = Wbk.Worksheets("list1")
  Debug.Print SS_List.Name
    ' nebo: nazev listu v promenne
    JmenoListu = "list1"
  Set SS_List = Wbk.Worksheets(JmenoListu)
  Debug.Print SS_List.Name
  'nebo: list prvni zleva v zobrazeni Excelu
  Set SS_List = Wbk.Worksheets(1)
  Debug.Print SS_List.Name
  'nebo: objekt List1
  Set SS_List = List1
  Debug.Print SS_List.Name
 
  ' radek
  Set MyRow = SS_List.Range("A5:AA5")
  Debug.Print MyRow.Address(0, 0)
End Sub

Nijak netouzim po firemnich datech, ale do te ukazky snad lze pridat to, co jsi pridaval. Pokud nepozadujes osetrit chybove stavy vyvolane absenci hledaneho data nebo typu, pak neni potrebne

[Branscombe]

15:54
Tak v tom se absolutně nevyznám ... Budu zkoumat a bádat jak to vyřešit ... Potřebuji to mít proměnné s odkazem na buňku, zkusím popřemýšlet

16:56
Tak v tom opravdu tápu - nedaří se mi nastavit proměnný odkaz názvu listu na buňku

[navstevnik]

doplneno:

Kód: Vybrat vše

Option Explicit


Sub Ukazka()
  Dim Wbk As Workbook
  Dim SS_List As Worksheet
  Dim MyRow As Range
  Dim JmenoListu As String
  Dim JmenoListuBunka As Range
  Dim JmenaListuBlok As Range, Cll As Range

  'objekt sesit
  Set Wbk = ThisWorkbook
  Debug.Print Wbk.Name
  'nebo
  Set Wbk = ActiveWorkbook
  Debug.Print Wbk.Name

  'objekt list
  ' nazev listu: list1
  Set SS_List = ActiveWorkbook.Worksheets("list1")
  Debug.Print SS_List.Name
  ' nebo: nazev listu: list1
  Set SS_List = Wbk.Worksheets("list1")
  Debug.Print SS_List.Name
  ' nebo: nazev listu v promenne
  JmenoListu = "list1"  ' nazev listu do promenne
  Set SS_List = Wbk.Worksheets(JmenoListu)
  Debug.Print SS_List.Name
  'nebo: list prvni zleva v zobrazeni Excelu
  Set SS_List = Wbk.Worksheets(1)
  Debug.Print SS_List.Name
  'nebo: objekt list: List1
  Set SS_List = List1
  Debug.Print SS_List.Name
  ' nazev listu je v List3!D4
  Set JmenoListuBunka = Wbk.Worksheets("list3").Range("d4")  ' definice bunky s nazvem
  Set SS_List = Wbk.Worksheets(JmenoListuBunka.Value)
  Debug.Print SS_List.Name
  ' nebo totez jinak
  With Wbk
    Set SS_List = .Worksheets(.Worksheets("list3").Range("d4").Value)
  End With
  Debug.Print SS_List.Name
  ' jmena listu jsou v List3!D4:D5, v D5 je neplatne
  Set JmenaListuBlok = JmenoListuBunka.Resize(2, 1)
  For Each Cll In JmenaListuBlok.Cells
    With Wbk
      On Error Resume Next ' osetreni chyby
      Set SS_List = .Worksheets(Cll.Value)
      If Err.Number <> 0 Then GoTo ErrHandler
      On Error GoTo 0
    End With
    Debug.Print SS_List.Parent.Name; " "; SS_List.Name
Pokracovat:
  Next Cll
  Debug.Print
  ' radek
  Set MyRow = SS_List.Range("A5:AA5")
  Debug.Print MyRow.Address(0, 0)

  ' odstranit objektove promenne
  Set JmenoListuBunka = Nothing
  Set JmenaListuBlok = Nothing
  Set Cll = Nothing
  Set MyRow = Nothing
  Set SS_List = Nothing
  Set Wbk = Nothing
 
  Exit Sub
ErrHandler:
  Debug.Print "Chyba v zadani nazvu listu"
  GoTo Pokracovat
End Sub

[Branscombe]

Tak jsem to z toho vyzobnul a použil a funguje jak má ... Díky

Nevíš náhodou kde bych našel vysvětlení pojmů "String", "Integrer" atd... ??

[navstevnik]

Zkus zacit tady: http://www.officir.ic.cz/excelentne.html - Deklarace - nutné dobro, jinak mas prece k dispozici napovedu k Excelu (promenne - typ) no a web

[Branscombe]

Ahoj again,

mám tu další potíž s přepsání dat, tak nevím jestli kvůli tomu zakládat nové téma.
Potřebuji jednoduchou vyhledávací formulku do makra a to tak aby když na listu1 v příloze kliknu na tlačítko, aby mi překopíroval a transponoval data z oblasti D3:D20 na list2 do buněk B2:S2, ale vždy na řádek kde je ve sloupci "A" na list2 obsažena hodnota z buňky "D2" na list1.
V případě že by hodnota na list2 ve sloupci "A" nebyla, tak vložit na první volný řádek

Doufám že jsem to napsal pochopitelně a doufám že to bude opravdu pouze jednoduchý zápis, abych jej pochopil a příště už nemusel otravovat

[navstevnik]

Budu te muset zklamat, urcite bude slozitejsi nez jednoduchy

V případě že by hodnota na list2 ve sloupci "A" nebyla, tak vložit na první volný řádek

taky to muzes napsat lidsky:
Pokud neni na list2!A:A hodnota z list1!D2, transponovat list1!D3:D20 na list2!Bxx:Sxx, jinak na odpovidajici radek

PS: a zacni konecne pouzivat ovladci prvky (tlacitka a ...) z ActiveX ovladacich prvku