değerli arkadaşlar
e3 hücresinden başlayarak hücrelere sayı giriyorum ( veri aralığı belli değil) en son dolu hücreyi :
Sub bul()
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Value = "TOPLAM"
End Sub
Sub MyQty()
Range("A2").Select
Range("A" & Cells(65536, 2).End(xlUp).Row + 1) = "END"
100:
If ActiveCell.Row > Cells(65536, 2).End(xlUp).Row Then
ActiveCell = ""
Exit Sub
End If
MyRng = ActiveCell.Address
Do While ActiveCell.Offset(1, 0) = "" Or ActiveCell = "END"
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(1, 0).Select
GoTo 100:
End Sub
bu kodlarla buluyorum.
bu aralıktaki sayıları e2 den başlayarak herbir satırı toplatıp "TOPLAM" sutununa yazdırmak istiyorum.
e3 hücresinden başlayarak hücrelere sayı giriyorum ( veri aralığı belli değil) en son dolu hücreyi :
Sub bul()
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Value = "TOPLAM"
End Sub
Sub MyQty()
Range("A2").Select
Range("A" & Cells(65536, 2).End(xlUp).Row + 1) = "END"
100:
If ActiveCell.Row > Cells(65536, 2).End(xlUp).Row Then
ActiveCell = ""
Exit Sub
End If
MyRng = ActiveCell.Address
Do While ActiveCell.Offset(1, 0) = "" Or ActiveCell = "END"
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(1, 0).Select
GoTo 100:
End Sub
bu kodlarla buluyorum.
bu aralıktaki sayıları e2 den başlayarak herbir satırı toplatıp "TOPLAM" sutununa yazdırmak istiyorum.