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

• #22956 Fferi50 Topikgazda kacsaesokos #22954

  Új Válasz 2014-08-18 14:05:10 #22956

  Ú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

  

  Fferi50

  Topikgazda

  válasz kacsaesokos #22954 üzenetére

  Szia!

  A cserélendő adatok "F" oszlopán végigmész, megkeresed a "nagy" táblában az értékét. Ha megtaláltad az egész sort copyzod, ha nem akkor a végéhez hozzáadod.
  Kb. így nézhet ki:

  Sub cserelo()
  Dim sh1 As Worksheet, sh2 As Worksheet, vanszam As Range, cl As Range
  Set sh1 = Munka1
  Set sh2 = Munka2
  For Each cl In sh2.UsedRange.Columns("F").Cells
  If cl.Value <> "" And cl.Row <> 1 Then
  Set vanszam = sh1.Columns("F").Find(what:=cl.Value, LookIn:=xlValues, lookat:=xlWhole)
  If vanszam Is Nothing Then Set vanszam = sh1.Columns("F").Rows.End(xlUp).Offset(1, 0)
  cl.EntireRow.Copy sh1.Cells(vanszam.Row, 1)
  End If
  Next
  End Sub

  Üdv.

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