Sub aktar()
Dim son As Long
With ThisWorkbook.Sheets("Sayfa1")
son = .Range("A" & Rows.Count).End(3).Row + 1
.Range("A" & son).Value = .Range("G3").Value
.Range("B" & son).Value = .Range("G4").Value
.Range("C" & son).Value = .Range("G5").Value
End With
End Sub
Buttonla Satır Ekleme?
Bu Konudaki Yorumlar |
Buttonla Satır Ekleme? - Yazar: Yunus Bozkurt - 14/03/2021, 17:39
RE: Buttonla Satır Ekleme? - Yazar: feraz - 14/03/2021, 21:26
RE: Buttonla Satır Ekleme? - Yazar: feraz - 25/03/2021, 00:21
|
Konuyu Okuyanlar: 1 Ziyaretçi