Skip to main content

AccessTr.neT


Macroda Değişiklik

Macroda Değişiklik

Çözüldü #1
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.
.rar 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.)
Cevapla
#2
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.
Cevapla
#3
ö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.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
(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")
Cevapla
#5
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("D2Lol10001")
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
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task