Ú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

• #23132 slashing senior tag Xenon86 #23131

  Új Válasz 2014-09-07 20:33:07 #23132

  Ú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

  

  slashing

  senior tag

  válasz Xenon86 #23131 üzenetére

  nekem simán leszedi de felraktam ide

  link

• #23131 Xenon86 újonc Xenon86 #23130

  Új Válasz 2014-09-07 20:26:42 #23131

  Ú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

  

  Xenon86

  újonc

  válasz Xenon86 #23130 üzenetére

  Sajnos nem tudom letölteni, mert rákattintva a here szövegre azt írja ki, hogy nincsenek fogadott adatok.

• #23128 slashing senior tag Xenon86 #23127

  Új Válasz 2014-09-07 19:59:55 #23128

  Ú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

  

  slashing

  senior tag

  válasz Xenon86 #23127 üzenetére

  [link]

  neked a countbycolor kell az oldal alján letöltheted a mintafájlt egyértelmű lesz hogyan működik....

• #23062 lappy őstag Xenon86 #23061

  Új Válasz 2014-09-01 16:28:02 #23062

  Ú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

  

  lappy

  őstag

  válasz Xenon86 #23061 üzenetére

  Hol a kép?

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