makro ile birden fazla sütunda işlem

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

makro ile birden fazla sütunda işlem

İleti#1)  zgecan » 12 Tem 2018 11:55

merhabalar. buradan aldığım bilgiler ile bir sütunda boş olan hücrelerin ait oldukları satırları kopyalayıp başka sayfaya yapıştırabilen bir makro yazabildim. ancak bunu birden fazla sütunda gerçekleştiremedim. şöyle ki veri setimde AI'dan AL'ye kadar olan sütunların hücrelerinde,aynı sırada,satırda hepsi boş olan varsa,onlara ait tüm satır girdilerini alıp başka bir sayfaya eklemek istiyorum.sonrasında da bir karşılaştırma yapmam gerekecek ama onun nasıl olacağını öğrendiğimde sorarım tekrardan :) şirkete ait veriler olduğu için burada paylaşıp gösteremeyeceğim. yardımcı olursanız çok sevinirim
Kullanıcı avatarı
zgecan
 
Kayıt: 10 Tem 2018 12:57
Meslek: öğrenci
Yaş: 24
İleti: 3
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Buca/İZMİR

Cevap: makro ile birden fazla sütunda işlem

İleti#2)  digitalkral » 12 Tem 2018 13:29

Kullandığınız kodları yazın istediğiniz şeyler için üzerinde değişiklik yapmaya çalışalım.
Kullanıcı avatarı
digitalkral
 
Adı Soyadı:Serkan TÜKENMEZ
Kayıt: 25 Haz 2012 17:14
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: makro ile birden fazla sütunda işlem

İleti#3)  zgecan » 12 Tem 2018 14:47

Kod: Tümünü seç
Sub kpnmyndosyalar()
    Dim s1 As Worksheet, s2 As Worksheet
    Dim bul As Range, satır As Long
    Set s1 = Sheets("dosya")
   Sheets.Add AFTER:=ActiveSheet
ActiveSheet.Name = "KAPANMAYAN DOSYALAR"
Set s2 = Worksheets("KAPANMAYAN DOSYALAR")
    Application.ScreenUpdating = False
    For Each bul In s1.Range("J1:J243")
    If bul.Value = "" Then
    satır = satır + 1
    bul.EntireRow.Copy
    s2.Select
    Cells(satır, 1).PasteSpecial
    End If
    Next bul
    [a1].Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub



bunu tek bir sütunda boş olan hücreyi belirleyip ona ait diğer satırlardaki bilgileri alıp başka bir sayfaya yapıştırmak için kullandım. ama beş tane sütunda herhangi bir beşlinin boş olduğu satırı tespit edebilmek için kullanamadım
Kullanıcı avatarı
zgecan
 
Kayıt: 10 Tem 2018 12:57
Meslek: öğrenci
Yaş: 24
İleti: 3
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Buca/İZMİR

Cevap: makro ile birden fazla sütunda işlem

İleti#4)  digitalkral » 12 Tem 2018 22:48

Aşağıdaki kodları istediğin kolon sayısı kadar arttırabilirsin.

Kod: Tümünü seç
    Dim son As Long
    Sheets("dosya").Select
    Range("A1:H250").Select
    Selection.AutoFilter
    ActiveSheet.Range("A1:H250").AutoFilter Field:=3, Criteria1:="=" ' 3. SÜTUN FİLTRELE
    ActiveSheet.Range("A1:H250").AutoFilter Field:=4, Criteria1:="=" ' 4. SÜTUN FİLTRELE
    ActiveSheet.Range("A1:H250").AutoFilter Field:=5, Criteria1:="=" ' 5. SÜTUN FİLTRELE
    ActiveSheet.Range("A1:H250").AutoFilter Field:=6, Criteria1:="=" ' 6. SÜTUN FİLTRELE
    ActiveSheet.Range("A1:H250").AutoFilter Field:=7, Criteria1:="=" ' 7. SÜTUN FİLTRELE
    son = Sheets("dosya").Cells(Rows.Count, "B").End(xlUp).Row
    Sheets("dosya").Select
    Range("A1:H" & son).Select
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "KAPANMAYAN DOSYALAR"
    Sheets("dosya").Select
    Selection.Copy
    Sheets("KAPANMAYAN DOSYALAR").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Kullanıcı avatarı
digitalkral
 
Adı Soyadı:Serkan TÜKENMEZ
Kayıt: 25 Haz 2012 17:14
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

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

Cevap: makro ile birden fazla sütunda işlem

İleti#5)  digitalkral » 12 Tem 2018 23:05

Filtreyi kaldırmayı unutmuşum.

Kod: Tümünü seç
Sub kpnmyndosyalar()
   
    Application.ScreenUpdating = False
    Dim son As Long
    Sheets("dosya").Select
    Range("A1:H250").Select
    Selection.AutoFilter
    ActiveSheet.Range("A1:H250").AutoFilter Field:=3, Criteria1:="=" ' 3. SÜTUN FİLTRELE
    ActiveSheet.Range("A1:H250").AutoFilter Field:=4, Criteria1:="=" ' 4. SÜTUN FİLTRELE
    ActiveSheet.Range("A1:H250").AutoFilter Field:=5, Criteria1:="=" ' 5. SÜTUN FİLTRELE
    ActiveSheet.Range("A1:H250").AutoFilter Field:=6, Criteria1:="=" ' 6. SÜTUN FİLTRELE
    ActiveSheet.Range("A1:H250").AutoFilter Field:=7, Criteria1:="=" ' 7. SÜTUN FİLTRELE
    son = Sheets("dosya").Cells(Rows.Count, "B").End(xlUp).Row
    Sheets("dosya").Select
    Range("A1:H" & son).Select
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "KAPANMAYAN DOSYALAR"
    Sheets("dosya").Select
    Selection.Copy
    Sheets("KAPANMAYAN DOSYALAR").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("KAPANMAYAN DOSYALAR").Range("A1").Select
    Worksheets("dosya").AutoFilterMode = False
    Application.CutCopyMode = False
    Sheets("dosya").Select
    Sheets("dosya").Range("A1").Select
    Application.ScreenUpdating = True

End Sub
Kullanıcı avatarı
digitalkral
 
Adı Soyadı:Serkan TÜKENMEZ
Kayıt: 25 Haz 2012 17:14
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: makro ile birden fazla sütunda işlem

İleti#6)  zgecan » 17 Tem 2018 12:06

geç dönüş yaptığım için kusura bakmayın yoğunluktan bakamadım. Çok teşekkür ediyorum saolun :)
Kullanıcı avatarı
zgecan
 
Kayıt: 10 Tem 2018 12:57
Meslek: öğrenci
Yaş: 24
İleti: 3
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Buca/İZMİR

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe