- Katılım
- 17 Haziran 2017
- Mesajlar
- 29
- Excel Vers. ve Dili
- 2010 Türkce
Sub DOLU_HUCRELERI_KOPYALA()
Dim Veri As Range, Alan As Range
For Each Veri In Range("A1:A1000")
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
calışma sayfamda 8 adet sayfa var hepsinin a1:a1000 hücrelerin kopyalamaya calışıyor calışma kitabımın adı skordeneme sayfamın adı skorveri yani skor verideki a1:a1000 hücrelerinin dolu olanlarını yine skorveri sayfasına c1 kopyalıyacak yardımlarınızı bekliyorum
Dim Veri As Range, Alan As Range
For Each Veri In Range("A1:A1000")
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
calışma sayfamda 8 adet sayfa var hepsinin a1:a1000 hücrelerin kopyalamaya calışıyor calışma kitabımın adı skordeneme sayfamın adı skorveri yani skor verideki a1:a1000 hücrelerinin dolu olanlarını yine skorveri sayfasına c1 kopyalıyacak yardımlarınızı bekliyorum
