Çoklu Satır ve Sütun silme

[Muzaffer Ali]

deneme.xlsm

drive.google.com

Merhabalar Yusuf bey ;

Dosyada Visual Basic bölümüne bakarsanız göreceksiniz dediğiniz gibi makro kaydet bölümü ile makro kaydettim ve daha sonrasında altına yaptırmak istediğim bir for döngüsü koydum ancak sıkıntı şu ki makroyu başlattığım anda bütün excel sayfaları donuyor hiçbir sayfaya tıklayamıyorum ? Bunun çözümü nedir acaba ?

Alternatif kod.

Sub Test()
    With ThisWorkbook.Worksheets("Veri")
        .Columns("AM:XFD").Delete
        .Columns("T:AJ").Delete
        .Columns("A:R").Delete
        .Columns("C:C").Cut
        .Range("B1").Insert shift:=xlToRight
    
        .Range("A1").AutoFilter
        .Range("A1:C" & Rows.Count).AutoFilter Field:=2, Criteria1:="0"
        .Rows("2:" & Rows.Count).SpecialCells(xlCellTypeVisible).Delete
        .Range("A1").AutoFilter
    End With
End Sub

 

[YUSUF44]

Yine makro kaydet yoluyla bu 3 sütunu kopyalayıp yan sayfaya yapıştırmayı denediniz mi? (Böyle böyle kodla çalışmayı öğreneceksiniz, tıpkı bizlerin öğrenmeye başladığı gibi

 

[cinarbx]

Alternatif kod.

Sub Test()
    With ThisWorkbook.Worksheets("Veri")
        .Columns("AM:XFD").Delete
        .Columns("T:AJ").Delete
        .Columns("A:R").Delete
        .Columns("C:C").Cut
        .Range("B1").Insert shift:=xlToRight
   
        .Range("A1").AutoFilter
        .Range("A1:C" & Rows.Count).AutoFilter Field:=2, Criteria1:="0"
        .Rows("2:" & Rows.Count).SpecialCells(xlCellTypeVisible).Delete
        .Range("A1").AutoFilter
    End With
End Sub

yazmış olduğunuz kodda veriler yine olduğu sayfada gözüküyor. Ekte bıraktığım dosyaya bakınız sonuc sayfasındaki makroya bastığım anda istediğim o 3 sütunun sonuc sayfasında yazmasını istiyorum. Teşekkürler.

deneme.xlsm

Veri Buyer i.d.,Supplier i.d.,transmission no. old,transmission no. new,Message date,Buyer Organization,Org. Name Customer,Buyer plant i.d.,Plant Name,Unloading Point,Point of Consumption,warehouse,Packaging type 1,filling quantity 1,Packaging type 2,filling quantity 2,Packaging type 3,filling q...

docs.google.com