nerede hata yapıyorum ?

[hayalbert]

Sub mualak()
Windows("database.xls").Activate
s = WorksheetFunction.CountA(Range("a1:a65536"))
Range("a1:e1,g1,i1,ah1,y1,a & s:e2,g & s:g2, i & s:i2, ah & & :ah2, y & s:y2").Select
Selection.Copy
Windows("mualak.xls").Activate
Sheets("sayfa1").Select
Range("a1").PasteSpecial
End Sub

amacım son satırı bulup buna göre kopyalama yapmak ama s ile ilgili bir hata yapıyorum heralde

yardımcı olacaklara şimdiden teşekkür ederim

 

[Levent Menteşoğlu]

Range("a1:e1,g1,i1,ah1,y1,a & s:e2,g & s:g2, i & s:i2, ah & & :ah2, y & s:y2").Select

Yukarıdaki satır hatalı. Yapmak istediğinizi açıklarmısınız.

 

[hayalbert]

database sayfasının bazı sutunlarını sayfanın son satırının bularak kopyalamak, ayrıca kopyaladığım her sutunun da başlığını da kopyalamak istiyorum

 

[hayalbert]

kimse bir fikir beyan etmediğine göre ben yeterli açıklamayı yapamadım

bir de şöyle anlatsam

benim işimdeki dosyalarla ilgili bilgileri girdiğim bir database im var

asıl amacım bu database in içinde benim dosyanın ne zaman bittiği veya ne kadar zamandır bitirilemediğine dair bir özet sayfa yapmak,
bunun için bu sayfayı ("mualak") yaratmaya yarayacak database içindeki bazı sütunlarını başka bu sayfaya ("mualak") kopyalamaktır.

ama database sayfam her gün bir kaç satır daha büyüdüğü için kopyalamayı yaparken kullanacağım makroyu her gün yeniden değiştirmemek için, öncelikle en alt satırın numarasını bulup, bu satır numarasına göre kopyalama yapmak istiyorum.
bunu yapmak için kullandığım yöntem için basit örnekleme gerekirse

a2:a6615 yazıldığı zaman sorun yok

ama

a2:a & s gibi birşey yazdığım zaman hata veriyor

a sutununa s numarasını vermek için ne yapmam lazım

 

[Levent Menteşoğlu]

,a2:a & s gibi birşey yazdığım zaman hata veriyor

a sutununa s numarasını vermek için ne yapmam lazım

Aşağıdaki gibi kullanabilirsiniz.

range("a2:a" & s)

 

[hayalbert]

teşekkürler

 

[hayalbert]

satırı şu şekilde kullandığımda sorunsuz çalışıyor

Range("a1:e" & s, "g1:g" & s).Select

ama aşağıdaki şekilde sutun sayısı arttığında

Range("a1:e" & s, "g1:g" & s, "i1:i" & s, "ah1:ah" & s, "y1:y" & s).Select

wrong number of arguments or invlalid property assignment

uyarısı veriyor bu işte sınır iki tane midir ?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Range("a1:e" & s & ",g1:g" & s & ",i1:i" & s & ",ah1:ah" & s & ",y1:y" & s).Select

 

[hayalbert]

tamamdır
çok teşekkür ederim