HÜcre Temİzleme

[mtongur]

ArkadaŞlar
Ben D1 HÜcresİne Rakam GİrdİĞİmde Verİ Aktar DedİĞİmde
D1 Sayfasina Stok No, Mİktar Vs Atiyor
Ancak Stok "0" OlduĞunda O Siradakİ HÜcreler Temİzlensİn İstİyorum

Acİl Hocalarimdan Yardim Beklİyorum.

Saygilarimla

 

[Ömer]

Merhaba,

Sub sil()
    If [c2].Value = 0 Then
    Rows("10").Delete
    End If
End Sub

Satırı siler. (Buton yardımyla)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [c2].Value = 0 Then
    Rows("10").ClearContents
    End If
End Sub

Bu kodu D1 sayfasının Kod bölümüne kopyalarsanız. C2 değeri sıfır olduğunda 10. satırdaki bilgileri siler..

 

[mtongur]

teşekkür ederim

hemen uygulayacağım.

 

[mtongur]

Pekİ Bunu Her Satira Nasil Uygularim?

 

[Ömer]

Merhaba,

Her satıra derken ?

 

[Seyit Tiken]

Bu kodla istenilen hücrenin satırını silebilirsiniz. Çift tıklama.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.EntireRow.ClearContents: ActiveCell.Rows.Offset(1).Select
End Sub

 

[mtongur]

İLK 2 KOD SADECE 1 SATIR İÇİN, DİĞER KOD İSE çift tıklamayla SİLİYOR.
Dosyayi Daha AÇiklamali Hale Getİrdİm.
tekrar incelerseniz sevinirim.
Yardim Eden Hocalarima Çok TeŞekkÜr Ederİm.

Public Sub Sirala1()
Son = [A65536].End(3).Row
Range("A1:B" & Son).Sort Key1:=[a1], Order1:=xlAscending
End Sub

+ bu tuşa ilave sil işlemide yapması gerekiyor

 

[Seyit Tiken]

Ben olayı böyle anladım. C sütunundaki sıfır değerler silinsin.

Sub Düğme1_Tıklat()
Application.ScreenUpdating = False
For s = [c65000].End(3).Row To 1 Step -1
If Cells(s, 3) = 0 Then Cells(s, 3).EntireRow.Delete
Next
Application.ScreenUpdating = 1
End Sub

 

[mtongur]

Dosyanin Yenİ Halİ Üsttekİ Ektedİr.

 

[mtongur]

Ben olayı böyle anladım. C sütunundaki sıfır değerler silinsin.

Sub Düğme1_Tıklat()
Application.ScreenUpdating = False
For s = [c65000].End(3).Row To 1 Step -1
If Cells(s, 3) = 0 Then Cells(s, 3).EntireRow.Delete
Next
Application.ScreenUpdating = 1
End Sub

ANLATIM HATAMDAN DOLAYI ÖZÜR DİLERİM ŞİMDİKİ DOSYADA UYGULAYACAĞIMKISMIN RESİMLERİ VE AÇIKLAMALI VAR TEKRAR İNCELERSENİZ ÇOK MİNNETTAR KALACAĞIM
BENİM İÇİN ÇOK ÖNEMLİ BİR PROJE BU

 

[mtongur]

hocalarım yardım edecek yokmu?

 

[mtongur]

saygıdeğer hocalarım
elinizde başka kodlar varmı uygulayabileceğim

 

[mtongur]

sayın hocalarım
buna uygun başka kod varmı elinizde
projemin tek ve son kalan parçası bu bitince de paylaşacağım sizinle