satır silme

[onur3466]

ekte belirttiğim üzere "-" olan satırlaın excel formülü veya makroyla silinecek bir formülasyona ihtiyacım vardır. bu konuda yardımlarınız rica ederim.

 

[AdemCan]

F sütununda tire varsa satırı silen kodlar.

Sub test()
Set sayfa = Sayfa2
s = Sayfa2.Cells(Rows.Count, 6).End(3).Row

For i = s To 8 Step -1
    If sayfa.Cells(i, 6) = "-" Then
        sayfa.Rows(i).EntireRow.Delete
    End If
Next i
End Sub

 

[onur3466]

bunu butonla yapmanız mümkünmüdür

 

[onur3466]

aslında checklist yaparsanız daha çok sevinirim

 

[onur3466]

satırlar checkbox a tıkladığımda silinsin boş kaldığında geri gelsin

 

[AdemCan]

Mümkündür. İşlemi Sizin de yapmanız için adımlar,
Alt + F11 ile VBA Penceresini açıp Insert menüsünden Module yi tıklayın.


Resimdeki gibi Boş bir sayfa açılır. Bu sayfaya kodları yapıştırıp pencereyi kapatınız.

Tablonun olduğu sayfada herhangi bir şekil ekleyip Şekil üzerinde Sağ Tuş Makro Atayı tıklayın.



Açılan pencere test isimli makroyu işaretleyip Tamam ile pencereyi kapatın.

Artık şekil üzerine tıklama ile satırları silme makrosunu çalıştırabilirsiniz.

 

[AdemCan]

satırlar checkbox a tıkladığımda silinsin boş kaldığında geri gelsin

Silinen satırlar geri gelmeyeceği için Gizle/Göster işlemi yapılabilir.

Tablonun olduğu sayfaya resimde işaretlediğim Onay kutusunu ekleyiniz.


Daha sonra Sayfa2 sekmesi üzerinde Sağ Tuş Kod Görüntüleyi tıklayın


Açılan sayfaya aşağıdaki kodları yapıştırın.
Onay kutusunu işaretlediğiniz zaman satırlar gizlenir, onayı kaldırdığınız zaman satırlar görünür.

Private Sub CheckBox1_Click()
s = Range("F:F").Find("*", searchdirection:=xlPrevious).Row

If CheckBox1.Value = True Then
CheckBox1.Caption = "Göster"

For i = s To 8 Step -1
    If Cells(i, 6) = "-" Then
        Rows(i).EntireRow.Hidden = True
    End If
Next i

Else
    CheckBox1.Caption = "Gizle"
    Rows(8 & ":" & s).EntireRow.Hidden = False
End If

End Sub

 

[onur3466]

ekteki satırlarda 1 ve"-" mvcuttur ben 5 ve 5 ten fazla "-" olan satırların silinmesini istiyorum .bu konu yardımcı olabilirmisiniz?

 

[onur3466]

çok teşekkür ederim

 

[AdemCan]

Rica ederim.