Farklı kaydet yazısının hücre değerini verme

[turkanet]

sn.emrexcel123,

minnettarım

 

[emrexcel123]

rica ederim ii akşamlar...

 

[turkanet]

merhaba,

ilgili makronun A1 hücresini es geçtiğini fark ettim. A1 doluysa bile onu geçip, ondan sonraki hücre ismiyle kaydediyor.
diğer bir sorun ise, eğer a1, a2 vs tümü doluysa, a sütunundaki son hücreyi dikkate alıyor.

değerli cvplarınızı beklerim

 

[emrexcel123]

pardon kod aşağıdadır >>

Sub farkli_kaydet()
adr = "c:\" & Cells(Range("a:a").End(xlUp).Row, 1)
ActiveWorkbook.SaveAs adr
End Sub

ii çalışmalar...

 

[turkanet]

şimdi de
a1 ve a2 boşsa
ActiveWorkbook.SaveAs adr
satırında hata veriyor

 

[emrexcel123]

kördüğüm oldu denemeden yapınca böyle oluyor kusura bakma dostum

Sub farkli_kaydet()
If Range("a1") = Empty And Range("a2") = Empty Then
adr = "c:\" & Cells(Range("a:a").End(xlDown).Row, 1)
ActiveWorkbook.SaveAs adr
Else
adr2 = "c:\" & Cells(Range("a:a").End(xlUp).Row, 1)
ActiveWorkbook.SaveAs adr2
End If
End Sub

 

[turkanet]

benim için bu kadar uğraştığın için minnettarım.
ama
yine aynı satırda aynı hatayı verdi

 

[emrexcel123]

dosya adresini kontrol ettiniz mi ?

 

[turkanet]

evet ettim

 

[emrexcel123]

Sub farkli_kaydet()
If Range("a1") = Empty And Range("a2") = Empty Or Range("a1") = Empty Then
adr = "c:\" & Cells(Range("a:a").End(xlDown).Row, 1)
ActiveWorkbook.SaveAs adr
Else
adr2 = "c:\" & Cells(Range("a:a").End(xlUp).Row, 1)
ActiveWorkbook.SaveAs adr2
End If
End Sub

......

 

[turkanet]

son kodlarla hatasız çalışıyor, ellerinize sağlık. fakat aşağıdaki kodun neden çalışmadığını anlamak istiyorum

Sub farkli_kaydet()
adr = "c:\" & Cells(Range("a:a").End(xlUp).Row, 1)
ActiveWorkbook.SaveAs adr
End Sub