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

• #22456 Delila_1 veterán csongi #22448

  Új Válasz 2014-07-16 07:03:43 #22456

  Ú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 csongi #22448 üzenetére

  Csúnya, olvashatatlan lett a makró külalakja a tabulátor helytelen használata miatt, elnézést. Inkább újra beírom.

  Sub cikksz()
  Dim sor As Long, sor1 As Long, sor2 As Long, lel
  
  Application.ScreenUpdating = False
  sor = 1: sor2 = 1
  
  Do While Cells(sor, "A") <> ""
  If Application.CountIf(Columns(4), Cells(sor, "B")) > 0 Then
  Set lel = Columns(4).Find(Cells(sor, "B"), LookIn:=xlValues)
  sor1 = lel.Row
  Cells(sor2, "I") = Cells(sor, "A")
  Cells(sor2, "K") = Cells(sor, "B")
  Cells(sor2, "M") = Cells(sor, "C")
  Cells(sor2, "J") = Cells(sor1, "F")
  Cells(sor2, "L") = Cells(sor1, "E")
  sor2 = sor2 + 1
  End If
  sor = sor + 1
  Loop
  Application.ScreenUpdating = True
  End Sub

• #22455 Delila_1 veterán csongi #22448

  Új Válasz 2014-07-16 06:53:33 #22455

  Ú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 csongi #22448 üzenetére

  Makró a 2. táblázat létrehozásához:

  Sub cikksz()
  Dim sor As Long, sor1 As Long, sor2 As Long, lel
  
  Application.ScreenUpdating = False
  sor = 1: sor2 = 1
  
  Do While Cells(sor, "A") <> ""
  If Application.CountIf(Columns(4), Cells(sor, "B")) > 0 Then
  Set lel = Columns(4).Find(Cells(sor, "B"), LookIn:=xlValues)
  sor1 = lel.Row
  If Not IsError(sor1) Then
  Cells(sor2, "I") = Cells(sor, "A")
  Cells(sor2, "K") = Cells(sor, "B")
  Cells(sor2, "M") = Cells(sor, "C")
  Cells(sor2, "J") = Cells(sor1, "F")
  Cells(sor2, "L") = Cells(sor1, "E")
  sor2 = sor2 + 1
  End If
  End If
  sor = sor + 1
  Loop
  Application.ScreenUpdating = True
  End Sub

• #22449 Delila_1 veterán csongi #22448

  Új Válasz 2014-07-15 16:24:53 #22449

  Ú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 csongi #22448 üzenetére

  Tedd ki a füzetet egy elérhető helyre.

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