Sadece Veri olan alanın seçilmesi

[bedri41]

Aşağıdaki makroda (A4:K8) olan veri seçim alanını A4 den A da son veri olan satırın K sütununa kadar olan kısmı seçmesini nasıl sağlayabilim.

Yardımlarınız için teşekkür ederim



Sheets("VERI").Select
Range("A4:K8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DEPO").Select
Range("A65536").End(3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[dEdE]

Merhaba,
Range ile başlayan satırı aşağıdaki ile değiştirin.

Range("A4:K" & [A65536].End(3).Row).Select

 

[bedri41]

Yardımınız için çok teşekkür ederim. Ancak kopyalamayı yaptığım sayfadaki bu bölümün tüm hücrelerinde formül var. Karşılığı olanlara veri geliyor ama yukarıdaki makro veri olmayan formül olan satırlarıda kopyalıyor.

 

[dEdE]

Merhaba,
Takdir edersiniz ki ilk mesajınızdan bunu anlamak olanaksız.
Örnek dosyanızı eklerseniz gereksiz yazışmalarla forumda kirlilik yaratmamış oluruz.

 

[bedri41]

Çok haklısınız. İlginize teşekkür ederim.
Örnek dosya ilişiktedir.

 

[Necdet]

Merhaba,

Bu sorunuz aşağıdaki linkte yanıt verdiğim soru ile aynı değil mi?

http://www.excel.web.tr/f48/makronun-bos-sat-r-bularak-yap-st-rmas-t66959.html

Buradaki yanıt işe yaradı mı yaramadı mı?

 

[bedri41]

Necdet Bey, orada verdiğiniz ilave işime yardı ve kullandım, yapıştırdığım sayfada sorun çözüldü ancak kopyalamayı yaptığım sayfa 40 satır formüllü bir sayfa ve bazen bunun sadece ilk 5 satırına veri geliyor ben makroyu çalıştırdığmda 40 satır diğer tarafa kopyalanıyor daha sonra diğer sayfadanda veri kopyalandığında arada 35 satır boşluk kalıyor. bu boşluk olayını çözmeye çalışıyorum. Bunu yapıştırırken çözemediğim için şimdi kopyalamada formül olan ama veri gelmeyen satırları diğer tarafa taşımazsam problemi çözebileceğimi umuyorum.

 

[dEdE]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Sheets("ALANYA").Select
    For i = 4 To 40
    If Cells(i, 1).Value = "" Then
    ss = i - 1
    Exit For
    End If
    Next
Range("A4:K" & ss).Select

 

[bedri41]

evet budur. Üstad çok teşekkür ederim

 

[dEdE]

Rica ederim.
Güle güle kullanın.

Sorularınıza örnek dosya eklemeyi unutmayın