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.
Dosyayı denemedim ama bildiğim şu eğer mobilden doğru yazabilirsem kodu.
Application.cutcopymode = false
Bu kopyalamayı iptal eder ve istiyorsanız Range("A1").select
te ekleyebilirsiniz.
Bunları kodun en altına ekleyin.
önceki sayfanın seçili kısmını kaldırıma (seçimi iptal) olarak nasıl ekleriz. Burayı eklemişsiniz.
Buradan alt tarafta,
Sayfa1(Veri) sayfası F2 hücresine değerleri yapıştır kısmı macro olarak ne yazılabilir.
(27/04/2020, 18:10)yyhy yazdı: önceki sayfanın seçili kısmını kaldırıma (seçimi iptal) olarak nasıl ekleriz. Burayı eklemişsiniz.
Buradan alt tarafta,
Sayfa1(Veri) sayfası F2 hücresine değerleri yapıştır kısmı macro olarak ne yazılabilir.
Akşama bakayım zaten koda bakınca 10001 olan yer yanlış görüküyor.
For Each Veri In Range("D2:10001")
Eğer D2 den itibaren olanları kaopyalaacaksanız alttaki kodu kullanabilirsiniz.
Örnek dosya yerine resim eklemişsiniz.
Sub DOLU_HUCRELERI_KOPYALA()
Dim Veri As Range, Alan As Range
For Each Veri In Sheets("Mahalle").Range("D2
If Veri.Value <> "" Then
If Alan Is Nothing Then
Set Alan = Veri
Else
Set Alan = Application.Union(Alan, Veri)
End If
End If
Next
With Sheets("Veri")
.Range("F2:F" & Rows.Count).ClearContents
.Range("F2").Resize(Alan.Rows.Count, 1) = Alan.Value
.Select
.Range("F2").Select
End With
Application.CutCopyMode = False
End Sub
Eğer Mahalle sayfası D:E aralığını kopyalayacaksanız alttaki kodu deneyebilirsiniz.
Sub DOLU_HUCRELERI_KOPYALA()
Dim Veri As Range, Alan As Range
For Each Veri In Sheets("Mahalle").Range("D2:E10001")
If Veri.Value <> "" Then
If Alan Is Nothing Then
Set Alan = Veri
Else
Set Alan = Application.Union(Alan, Veri)
End If
End If
Next
With Sheets("Veri")
.Range("F2:G" & Rows.Count).ClearContents
.Range("F2").Resize(Alan.Rows.Count, 2) = Alan.Value
.Select
.Range("F2").Select
End With
Application.CutCopyMode = False
End Sub