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

• #23149 Delila_1 veterán Xenon86 #23146

  Új Válasz 2014-09-08 20:11:59 #23149

  Ú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 Xenon86 #23146 üzenetére

  Figyelmesebben olvasva a kérdést átírtam a makrót.
  Ez a K oszlopba írja be a darabszámokat.

  Sub HolVan()
  Dim sor As Integer, sor1 As Integer
  
  Range("L1") = "_"
  Range("L2:L22") = "=B2 & L$1 & C2 & L$1 & D2 & L$1 & E2 & L$1 & F2"
  Range("M2:M5") = "=H2 & L$1 & I2 & L$1 & J2"
  
  For sor = 2 To 22
  For sor1 = 2 To 5
  If InStr(Cells(sor, "L"), Cells(sor1, "M")) Then
  Cells(sor1, "K") = Cells(sor1, "K") + 1
  End If
  Next
  Next
  
  Range("L1:M22").ClearContents
  End Sub

• #23147 Delila_1 veterán Xenon86 #23146

  Új Válasz 2014-09-08 20:04:22 #23147

  Ú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 Xenon86 #23146 üzenetére

  A makró a futás idején segédoszlopként használja az L1:M22 tartományt, majd törli ezeket az adatokat.
  Abba a sorba, ahol egyezést talál, a G oszlopba X-et ír.

  Sub HolVan()
  Dim sor As Integer, sor1 As Integer
  
  Range("L1") = "_"
  Range("L2:L22") = "=B2 & L$1 & C2 & L$1 & D2 & L$1 & E2 & L$1 & F2"
  Range("M2:M5") = "=H2 & L$1 & I2 & L$1 & J2"
  
  For sor = 2 To 22
  For sor1 = 2 To 5
  If InStr(Cells(sor, "L"), Cells(sor1, "M")) Then
  Cells(sor, "G") = "X"
  Exit For
  End If
  Next
  Next
  
  Range("L1:M22").ClearContents
  End Sub

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