[Yardım]  Sadece Dolu Hücreleri Değer olarak Kopyala

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Sadece Dolu Hücreleri Değer olarak Kopyala

İleti#1)  Metin1981 » 07 Kas 2018 12:03

İyi günler ;
Ekli örnek dosyada A:F hücreleri arasında sadece dolu olan hücrelerin içerisindeki verileri değer olarak makro ile nasıl kopyalarız ?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Sadece Dolu Hücreleri Değer olarak Kopyala

İleti#2)  Ali ÖZ » 07 Kas 2018 12:20

Kod: Tümünü seç
Sub YuvarlatılmışDikdörtgen1_Tıkla()
  For Each bos In Sheets("DikiliDamga").Range("a2:F" & Sheets("DikiliDamga").Range("a65536").End(3).Row)
    If bos.Value <> "" Then
      son = Sheets("Sayfa2").Cells(Rows.Count, bos.Column).End(3).Row + 1
      Sheets("Sayfa2").Cells(son, bos.Column).Value = bos
    End If
  Next
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Sadece Dolu Hücreleri Değer olarak Kopyala

İleti#3)  Metin1981 » 07 Kas 2018 12:29

Ali bey teşekkür ederim.Şöyle bir şey olabilir mi? Dikili sayfadaki dolu hücreleri kopyalayıp.Masa üstüne DAMGALARIM klasörü ve klasörün içerisine Q3 hücresindeki isimle dosya adı olarak ve sayfa olarak ta DikiliDamga sayfası olarak kayıt yapılabilir mi?
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Sadece Dolu Hücreleri Değer olarak Kopyala

İleti#4)  Ali ÖZ » 07 Kas 2018 12:45

Kod: Tümünü seç
Sub YuvarlatılmışDikdörtgen1_Tıkla()
Set kitap = Workbooks.Add
kitap.ActiveSheet.Name = "DikiliDamga"
isim = ThisWorkbook.Sheets("DikiliDamga").Range("q3").Value
If ThisWorkbook.Sheets("DikiliDamga").Range("q3").Value = "" Then
   MsgBox "Sayfa Adı için Q3 Hücresinde veri olmalıdır"
   Exit Sub
End If
  For Each bos In ThisWorkbook.Sheets("DikiliDamga").Range("a2:F" & ThisWorkbook.Sheets("DikiliDamga").Range("a65536").End(3).Row)
    If bos.Value <> "" Then
      son = kitap.Sheets(1).Cells(Rows.Count, bos.Column).End(3).Row + 1
      kitap.Sheets(1).Cells(son, bos.Column).Value = bos
    End If
  Next
kitap.SaveAs CreateObject("wscript.Shell").SpecialFolders("Desktop") & "\DAMGALARIM" & "\" & isim & ".xlsx"
kitap.Close
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe