Új hozzászólás Aktív témák

• zsolti_20 senior tag

  #43116

  #43115 Fferi50

  2020-02-23 16:12:19

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  zsolti_20

  senior tag

  #43115 Fferi50

  #43115 Fferi50

  Szia!
  Úgy látom, a Dic objectumod nem lett megkreálva, csak definiáltad. Gondolom a Dictionary objektumot szeretnéd használni.
  Akkor kell egy ilyen sor, mielőtt hivatkoznál rá:
  Set Dic=CreateObject("Scripting.Dictionary")
  Ezért hibás a másolás kezdeted így első ránézésre.
  Üdv.

  Sajnos így is ugyan az a hiba. Ezt a kódot szerettem volna úgy átalakítani, hogy a megnyitott file legyen a második, és ne kelljen minden alkalommal átírnom:

  Sub UpdateW2()

Dim Dic As Object, key As Variant, oCell As Range, i&

Dim w1 As Worksheet, w2 As Worksheet
  

  
  Set Dic = CreateObject("Scripting.Dictionary")

Set w1 = Workbooks("1.xlsx").Sheets("Sheet1")

Set w2 = Workbooks("2.xlsx").Sheets("Sheet1")
  

  
  i = w1.Cells.SpecialCells(xlCellTypeLastCell).Row
  

  
  For Each oCell In w1.Range("A1:A" & i)

If Not Dic.exists(oCell.Value) Then

Dic.Add oCell.Value, oCell.Offset(, 3).Value

End If

Next
  

  
  i = w2.Cells.SpecialCells(xlCellTypeLastCell).Row
  

  
  For Each oCell In w2.Range("A2:A" & i)

For Each key In Dic

If oCell.Value = key Then

oCell.Offset(, 2).Value = Dic(key)

End If

Next

Next

End Sub

Új hozzászólás Aktív témák