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

• VGYke addikt

  #12972

  #12962 Delila_1

  2012-02-22 11:00:00

  Ú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

  

  VGYke

  addikt

  #12962 Delila_1

  #12962 Delila_1

  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

  Nagyon köszönöm! Bár, azon túl hogy beállítjuk a területet, fogalmam sincs mit csinál ez: Cells(ActiveSheet.UsedRange.Rows.Count, _ ActiveSheet.UsedRange.Columns.Count), kérlek szépen írd le nekem, sajnos ismereteimet autodidakta módon szerzem be.

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