Son dolu satıra göre işlem yapmak

Gold_Savt

Altın Üye
Katılım
5 Mart 2010
Mesajlar
227
Excel Vers. ve Dili
Ofis 2010 TR 32 Bit
Altın Üyelik Bitiş Tarihi
01-02-2025
C4 ten başlamak üzere C sütununun en son dolu satırında yapılacak işlem şöyle: (Örnek olarak Son dolu satır C50 olsun)
B50 ile B51 birleşecek .Merge
E50 ile E51 birleşecek .Merge
F50 ile F51 birleşecek .Merge
(Not: kaynak olan C sütununa dokunulmayacak)
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Kod:
Sub Test1()
    Dim Son As Long
    Son = Cells(Rows.Count, "C").End(xlUp).Row + 1
    Range("B" & Son).Resize(2, 1).Merge
    Range("E" & Son).Resize(2, 1).Merge
    Range("F" & Son).Resize(2, 1).Merge
End Sub
Yada

Kod:
Sub Test2()
    Dim Son As Long
    Son = Cells(Rows.Count, "C").End(xlUp).Row + 1
    Range("B" & Son & ":B" & Son + 1).Merge
    Range("E" & Son & ":E" & Son + 1).Merge
    Range("F" & Son & ":F" & Son + 1).Merge
End Sub
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Rica ederim. Kolay gelsin.
 
Üst