son satırı referans vererek satır ekle

[uzmanamele]

merhaba
makro ile bir sayfayı kopyaladığımda başka sayfada satır ekleyerek toplam satırındaki değerleri aldırmak istiyorum

aşağıdaki kodlarla son satırı bulsam 2 alttaki satırı nasıl adreslerim?

Sub son_satır()
For son = [C65536].End(3).Row To 1 Step -1
If Cells(son, "C") = "SON SATIR" Then
Exit For
End If
Next
MsgBox "son_satır= " & son
End Sub

kopyalanan satırdaki son satır adresini R1C1 sitili öğrenebilirsem olur sanıyorum.

ActiveCell.FormulaR1C1 = _
"=IF('ben_BOŞ'!R12C4>0,+'sen_BOŞ'!R196C5,"""")"

not: örnek dosya ekleyebilsem derdimi tam anlatabilirdim ama malesef dosya boyutu büyük, ekleyemiyorum.

 

[uzmanamele]

merhaba
2 adet sayfayı kopyalıyorum ve 2. sayfanın toplam satırı için satır ekletiyorum. satır sayısı sabit olsa sorun yok. satır sayısı artmış veya azalmışsa toplam satırının adresi değiştiği için hücre adreslemesini yapamadım. esasen son_satır makrosuna gerek yok, kopyala makrosunun içersine tek satır ilavesiyle olacaktır ama asıl sorun zaten hücreleri adreslemek

 

[uzmanamele]

bitürlü silmeyi beceremedi

 

[uzmanamele]

kodlar çok uzun olduğu için kafa karıştırmamak amacıyla silindi.

 

[uzmanamele]

..............

 

[conari]

ilgili sayfalarda ad tanımla ama görece olayına dikkat et.

mesela toplam=
=Sayfa1!$J$1:$J21 aralığı
araya satır eklendiğinde
tanımlanan ad j22 ye kayar.
Makrolarında da bu adları kullanabilirsin.

 

[uzmanamele]

merhaba
syn conari, ilginize teşekkürler.
sayfa kopyalandığında ad çakışması olabilir, bunu denemem lazım.

son = [C65536].End(3).Row To 1 Step -1
ile bulduğum Cells(son, "C") adresin R1C1 sitili ile nasıl gösterildiğini bulabilirsem sorunum çözülür.