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

• #14932 Delila_1 veterán CHANNIS #14930

  Új Válasz 2012-09-12 20:00:26 #14932

  Ú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

  

  Delila_1

  veterán

  válasz CHANNIS #14930 üzenetére

  Átalakítottam.

  Sub alma()
  Dim sor%, tol%, ig%, usor%, nev$
  Dim WS1 As Worksheet, WS2 As Worksheet
  Set WS1 = Worksheets("Munka1")
  Set WS2 = Worksheets("Munka2")
  usor% = WS2.Range("I" & Rows.Count).End(xlUp).Row
  
  For sor% = 3 To usor%
  nev$ = WS2.Range("I" & sor%)
  ig% = Application.WorksheetFunction.Match(nev$, WS1.Columns(2), 0)
  tol% = ig%
  Do While WS1.Cells(ig%, 2) = nev$
  ig% = ig% + 1
  Loop
  
  WS1.Rows(ig%).EntireRow.Insert
  WS1.Cells(ig%, "B") = WS2.Cells(sor%, "I")
  WS1.Cells(ig%, "C") = WS2.Cells(sor%, "G")
  WS1.Cells(ig%, "E") = WS2.Cells(sor%, "J")
  WS1.Cells(ig%, "G") = WS2.Cells(sor%, "K")
  
  WS1.Rows(ig% + 1).EntireRow.Insert
  WS1.Rows(ig% + 2).EntireRow.Insert
  Next
  End Sub

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