Satır ve sütun silme

[muhalko]

Sayın üstadalrım ve değerli uzmanlar;

1 - a sütununda herhangi bir hücrede veya hücrelerde yazılacak olan örneğin "tüccar plasiyer" in bulunduğu satırı silecek bir makro yapmaya çalıştım. Fakat bu tüccar plasiyer yazan hücre yerleri değişince değişen yerleri silmiyorda orada ne varsa onu siliyor.

2. Herhangi bir hücrede boş olması veya 0 ( sıfır ) yazması halinde hücernin bulunduğu sütunu silen bir makroya ihityacım var.

Bu iki hususta yardımcı olursanız çok memnun olurum.

şimdiden ellerinize sağlık. Sizlere kolay gelisn...

 

[YUSUF44]

aşağıdaki kodları bir modüle yapıştırıp çalıştırdığınızda A sütununda A1 hücresinden son dolu hücrenin olduğu satıra kadar tarar ve tüccar plasiyerin olduğu satırı siler/aradan çıkarır:

Sub Makro2()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = "tüccar plasiyer" Then
Rows(i).Select
    Selection.Delete Shift:=xlUp
    End If
    Next
End Sub

Aşağıdaki kodlar ise aynı mantıkla aradaki boş veya 0 içeren satırları siler/aradan çıkarır:

Sub Makro3()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = "" Or Cells(i, 1) = 0 Then
Rows(i).Select
    Selection.Delete Shift:=xlUp
    End If
    Next
End Sub

 

[YUSUF44]

2. örnekte sütun silmekten bahsetmişsiniz ama satır belirtmemişsiniz. VErdiğim 2. kod işinize yaramaz ama sorununuzu çözmek için şöyle bir bilgi lazım diye düşünüyorum: sütün silme işlemi ilk istediğinizdeki gibi belirli bir satırdaki hücre boş veya 0 ise mi çalışacak yoksa tüm satırlarda mı çalışacak? Örneğin D1 boşsa D sütununu; C1005 boşsa C sütununu AA645 boşsa AA sütununu aynı anda mı silecek?