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

• #43116 zsolti_20 senior tag Fferi50 #43115

  Új Válasz 2020-02-23 16:12:19 #43116

  Ú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

  Privát üzenet küldése

  

  zsolti_20

  senior tag

  válasz Fferi50 #43115 üzenetére

  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

  [ Szerkesztve ]

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