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

• #5383 Delila_1 veterán Gabcsika #5380

  Új Válasz 2009-09-17 12:31:41 #5383

  Ú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 Gabcsika #5380 üzenetére

  Ez a "legjobban megfelelő" nem valami korrekt meghatározás, ahogy Cuci is írta.
  A makrót úgy írtam, hogy ha a C oszlop értékében megtalálható a B oszlop valamelyik értéke, akkor a B-ben lévő cella sorába, a D oszlopba írja a C értékét. Hú, ez aztán kacifántos megfogalmazás, de biztosan érted.
  Az ellenőrzendő területet a "Set ter=" -, valamint a "For sor=" kezdetű sorokban módosíthatod.

  Sub Hasonlo()
  Dim sor As Integer
  Dim sz As String
  Dim ter As Range
  Dim CV As Object
  
  Set ter = Range("B242:B267")
  
  For sor = 242 To 267
  sz = Cells(sor, 3)
  For Each CV In ter
  If InStr(1, sz, CV) Then Cells(CV.Row, 4) = sz
  Next
  Next
  End Sub

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