Son Satır Makrosu

[selveroz]

Merhaba Arkadaşlar,

Sayenizde makromu çalışır hale getirebildim. Bunun için hepinize çok teşekkür ederim. Ancak geriye 1 tek sorunum kaldı o da şudur ki:

Makromla oluşturduğum yeni çalışma kitabım var. Bu çalışma kitabına .xml dosyalarından veri alıyorum ve sonra da içerisinde veri olan son satırını bulmak istiyorum. Ancak son satır bulma kodunu çalıştırdığımda makronun yazılı olduğu çalışma kitabının ilgili sayfasında son satırı buluyor. Diğer açılan yeni öalışma kitabında bulamıyor. Nasıl bir kod eklemeliyim ki yeni oluşan çalışma kitabındaki son satırı bulsun. Yardımlarınız lütfen....

 

[uzmanamele]

merhaba
makroyu modüle yazarak ilgili sayfada buton ile çalıştırabilirsiniz.
veya yine modüle yazarak
Sheets("yeni_sayfa").Select
Son_Satır = [A65536].End(xlUp).Row
gibi deneyebilirsiniz

 

[selveroz]

merhaba
makroyu modüle yazarak ilgili sayfada buton ile çalıştırabilirsiniz.
veya yine modüle yazarak
Sheets("yeni_sayfa").Select
Son_Satır = [A65536].End(xlUp).Row
gibi deneyebilirsiniz

Yanıtın için teşekkür ederim. Ama, makromu zaten bir modüle yazdım ve başka bir çalışma kitabındaki (yani başka bir excel sayfasındaki) ilk sayfanın son dolu satırını bulmak istiyorum.

Yardımcı olur musunuz?

 

[Ayhan Ercan]

Yanıtın için teşekkür ederim. Ama, makromu zaten bir modüle yazdım ve başka bir çalışma kitabındaki (yani başka bir excel sayfasındaki) ilk sayfanın son dolu satırını bulmak istiyorum.

Yardımcı olur musunuz?

örnek çalışma yollayabilirmisiniz...?

 

[selveroz]

Örnek çalışmam çok uzun ve başka dosyalar gerektiriyor. Yapmak istediğimi kısaca söyle anlatayım:

Elimde bir tane calisma.xls excel kitabım var. Ben burada öyle bir kod yazmak istiyorum ki 1.xls adlı başka bir çalışma kitabının sayfa1'ndeki son dolu satırı bulsun.

Yapmak istediğim sadece bu...

Şimdiden teşekkürler,

 

[uzmanamele]

merhaba
çalışmanız Kitap3 Sayfa1 ise ve son satırını bulmak istediğiniz verinin Kitap4'ün Sayfa1 B sütununda olduğunu varsayarsak aşağıdaki kodu denermisiniz

Sub deneme()
Windows("Kitap4").Activate
Sheets("Sayfa1").Select
son_satır = [B65536].End(xlUp).Row

Windows("Kitap3").Activate
Sheets("Sayfa1").Select
MsgBox son_satır
End Sub

 

[selveroz]

merhaba
çalışmanız Kitap3 Sayfa1 ise ve son satırını bulmak istediğiniz verinin Kitap4'ün Sayfa1 B sütununda olduğunu varsayarsak aşağıdaki kodu denermisiniz

Sub deneme()
Windows("Kitap4").Activate
Sheets("Sayfa1").Select
son_satır = [B65536].End(xlUp).Row

Windows("Kitap3").Activate
Sheets("Sayfa1").Select
MsgBox son_satır
End Sub

İşe yaradı uzmanamele. Ellerine sağlık

YArdımların için ççookk teşekkürler