Sub bul()
Cells.Find(What:="toplam", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range(Selection.Cells, Selection.End(xlDown)).Select
End Sub
Sub tara()
Set LeftCell = Cells(ActiveCell.Row, 5)
Set RightCell = Cells(ActiveCell.Row - 1, 256)
If IsEmpty(LeftCell) Then Set LeftCell = LeftCell.End(xlToRight)
If IsEmpty(RightCell) Then Set RightCell = RightCell.End(xlToLeft)
If LeftCell.Column = 256 And RightCell.Column = 1 Then ActiveCell.Select Else Range(LeftCell, RightCell).Select
Range(Selection.Cells, Selection.End(xlDown)).Select
End Sub
bul makrosuyla "toplam" yazılı olan sutunu dolu hücreye kadar seçiyorum. 2. makro ilede 1 den 5 sutuna kadar dolu hücreleri seçiyorum
yapmak istediğim ise; her ikisini birlikte seçili hale getirmek
Cells.Find(What:="toplam", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range(Selection.Cells, Selection.End(xlDown)).Select
End Sub
Sub tara()
Set LeftCell = Cells(ActiveCell.Row, 5)
Set RightCell = Cells(ActiveCell.Row - 1, 256)
If IsEmpty(LeftCell) Then Set LeftCell = LeftCell.End(xlToRight)
If IsEmpty(RightCell) Then Set RightCell = RightCell.End(xlToLeft)
If LeftCell.Column = 256 And RightCell.Column = 1 Then ActiveCell.Select Else Range(LeftCell, RightCell).Select
Range(Selection.Cells, Selection.End(xlDown)).Select
End Sub
bul makrosuyla "toplam" yazılı olan sutunu dolu hücreye kadar seçiyorum. 2. makro ilede 1 den 5 sutuna kadar dolu hücreleri seçiyorum
yapmak istediğim ise; her ikisini birlikte seçili hale getirmek