AccessTr.neT
Macroda Değişiklik - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Macroda Değişiklik (/konu-macroda-degisiklik.html)

Sayfalar: 1 2 3 4


Macroda Değişiklik - yyhy - 27/04/2020

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.


RE: Macroda Değişiklik - feraz - 27/04/2020

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.


RE: Macroda Değişiklik - yyhy - 27/04/2020

ö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.


RE: Macroda Değişiklik - feraz - 27/04/2020

(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")


RE: Macroda Değişiklik - feraz - 27/04/2020

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



RE: Macroda Değişiklik - feraz - 27/04/2020

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