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

• #5384 Delila_1 veterán Gabcsika #5380

  Új Válasz 2009-09-17 13:08:56 #5384

  Ú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

  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