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

• #12962 Delila_1 veterán VGYke #12961

  Új Válasz 2012-02-22 09:02:26 #12962

  Ú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 VGYke #12961 üzenetére

  A makró kiírja a Blabla szöveget tartalmazó cella címét, és beteszi a sor és az oszlop változókba a címnek ezt a két adatát, további felhasználás céljára.

  Sub keres()
  Dim ter As Range, CV As Variant, sor As Long, oszlop As Long
  Set ter = Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.Rows.Count, _
  ActiveSheet.UsedRange.Columns.Count))
  
  For Each CV In ter
  If CV = "Blabla" Then
  sor = CV.Row: oszlop = CV.Column
  MsgBox CV.Address
  Exit For
  End If
  Next
  'A sor és oszlop változó további felhasználása
  '...
  '...
  End Sub

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