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

• Delila_1 veterán

  #5384

  #5380 Gabcsika

  2009-09-17 13:08:56

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #5380 Gabcsika

  Megszívlelvén Cucinak a 2. pontjában feltett kérdését, a B oszlopban megtalált érték sorába beíratom az összes helyet, ami a C oszlopban van, és tartalmazza a B értékét. Az első megtalált érték a D, a második az E.., stb. oszlopokba kerül. Mindegyik beírt találathoz fűzök egy megjegyzést, ami a C oszlop beli címet tartalmazza.
  Ez is bonyolultan hangzik, de ha lefuttatod, világosabb lesz.

  Sub Hasonlo()
  Dim sor, oszlop As Integer
  Dim sz, cim As String
  Dim ter As Range
  Dim CV As Object
  
  Set ter = Range("B242:B267")
  
  For sor = 242 To 267
  oszlop = 4
  sz = Cells(sor, 3): cim = Cells(sor, 3).Address
  For Each CV In ter
  If InStr(1, sz, CV) Then
  Do While Cells(CV.Row, oszlop) <> ""
  oszlop = oszlop + 1
  Loop
  Cells(CV.Row, oszlop).Select
  With Selection
  .Value = sz
  .AddComment
  .Comment.Text Text:=cim
  .Comment.Visible = False
  End With
  oszlop = oszlop + 1
  End If
  Next
  Next
  End Sub

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