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) |
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. 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.
RE: Macroda Değişiklik - feraz - 27/04/2020 Eğer Mahalle sayfası D:E aralığını kopyalayacaksanız alttaki kodu deneyebilirsiniz.
|