Sayfa4(Mahalle) isimli sayfamda bulunan
Sub DOLU_HUCRELERI_KOPYALA()
Dim Veri As Range, Alan As Range
For Each Veri In Range("D2:10001")
If Veri.Value <> "" Then
If Alan Is Nothing Then
Set Alan = Veri
Else
Set Alan = Application.Union(Alan, Veri)
End If
End If
Next
If Not Alan Is Nothing Then Alan.Copy
End Sub
Yukarıdaki kod ile verileri kopyalıyorum Sayfa1(Veri) sayfası F2 hücresine değerleri yapıştır ve önceki sayfanın seçili kısmını kaldırıma (seçimi iptal) olarak nasıl ekleriz.
#1
Dolu hücreleri kopyala.rar
(Dosya Boyutu: 82,58 KB | İndirme Sayısı: 3)
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 27/04/2020, 05:24, Düzenleyen: yyhy.
(Sebep: macroyu bu web safyasına yapıştırınca bazı eklemeler yapıyor. Sorun olursa dosya hazırlayıp atarım.)
