Sayfa1.Rows("4").Select
Sayfa1.Range(Selection, Selection.End(xlDown)).Select
If ActiveCell.Rows Is Nothing Then GoTo devam
Set rng = ActiveCell.EntireRow
rng.Copy Destination:=Sayfa12.Range("A6") 'sonuçları grapor sayfasına yapıştırdı
Görüldüğü üzere r ng.copy destination kullanıyorum copy pasteden daha hızlı çalışıyor ama kopyalanan yerde formul var ve formulu Kopyalıyor formulun sonucunu metin olarak kopyalasın istiyorum ;
İkinci sorun eğer aktif satır boşşsa devam koduna gitsin istiyorum bagzen saçmalıyor. tek satırda aralarda boşluk olan 7 .8 hücre kopyalıyorum tek satırdaki bu hücrelerin hepsi boşşsa diyemedim bir türlü
entire row denedim ama olmuyor
Sayfa1.Range(Selection, Selection.End(xlDown)).Select
If ActiveCell.Rows Is Nothing Then GoTo devam
Set rng = ActiveCell.EntireRow
rng.Copy Destination:=Sayfa12.Range("A6") 'sonuçları grapor sayfasına yapıştırdı
Görüldüğü üzere r ng.copy destination kullanıyorum copy pasteden daha hızlı çalışıyor ama kopyalanan yerde formul var ve formulu Kopyalıyor formulun sonucunu metin olarak kopyalasın istiyorum ;
İkinci sorun eğer aktif satır boşşsa devam koduna gitsin istiyorum bagzen saçmalıyor. tek satırda aralarda boşluk olan 7 .8 hücre kopyalıyorum tek satırdaki bu hücrelerin hepsi boşşsa diyemedim bir türlü
entire row denedim ama olmuyor
Son düzenleme: