Son Girilen Veriyi Silmek istiyorum

[Mdemir63]

Arkadaşlar merhaba

UserForm üzerinden bilgi girişi yapıyorum sayfaya ilgili hücrelere verileri girebiliyorum. Form üzerine bir buton koyarak Son girilen veriyi silmek istiyorum bunu nasıl yapabilirim?

Saygılar



Dosya ekte

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton2_Click()
    SON = [A65536].End(3).Row
    Range(Cells(SON, 1), Cells(SON, 7)).ClearContents
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz. Silme işleminde onay isteyecektir.

Private Sub CommandButton2_Click()
    ONAY = MsgBox("SON GİRİLEN KAYDI SİLMEK İSTİYOR MUSUNUZ?", vbYesNo + vbCritical, "DİKKAT !")
    If ONAY = vbYes Then
    SON = [A65536].End(3).Row
    Range(Cells(SON, 1), Cells(SON, 7)).ClearContents
    Else
    MsgBox "SİLME İŞLEMİ İPTAL EDİLMİŞTİR.", vbInformation
    End If
End Sub

 

[Selçuk1]

sn. komutan63;

aşağıdaki kodu commandbutton2 ye yazıp dener misiniz?

Private Sub CommandButton2_Click()
sonsat = [a65536].End(3).Row
Rows(sonsat).ClearContents
End Sub

 

[Mdemir63]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz. Silme işleminde onay isteyecektir.

Private Sub CommandButton2_Click()
    ONAY = MsgBox("SON GİRİLEN KAYDI SİLMEK İSTİYOR MUSUNUZ?", vbYesNo + vbCritical, "DİKKAT !")
    If ONAY = vbYes Then
    SON = [A65536].End(3).Row
    Range(Cells(SON, 1), Cells(SON, 7)).ClearContents
    Else
    MsgBox "SİLME İŞLEM İPTAL EDİLMİŞTİR.", vbInformation
    End If
End Sub

Hocam harikasınız vallahi
Saygılar sunuyorum

 

[Mdemir63]

sn. komutan63;

aşağıdaki kodu commandbutton2 ye yazıp dener misiniz?

Private Sub CommandButton2_Click()
sonsat = [a65536].End(3).Row
Rows(sonsat).ClearContents
End Sub

İlginize teşekkürler
Saygılar

 

[Seyit Tiken]

Alternatif :

Sub Düğme1_Tıklat()
[a65536].End(3).EntireRow = ""
End Sub

 

[Mdemir63]

Alternatif :

Sub Düğme1_Tıklat()
[a65536].End(3).EntireRow = ""
End Sub

Seyit hocam merhaba
Teşekkür ederim. Bu çözümlerinizi hep klasörlüyorum.
Kolay gelsin
Saygılar

 

[Mdemir63]

Merhabalar Arkadaşlar

verdiğiniz değişik kodlarla satırı sildirebiliyoruz ancak satırda herhangi bir hücrede formül var ve ben satırı silmek istiyorum fakat formülüm silinmesin (o anki formül sonucu silinsin ama daha sonra giriş yapıldığında formül görevini yapsın) istiyorum bunu nasıl yapabilirim?

Saygılar sunuyorum

 

[Mdemir63]

Nasıl yapmam gerekir arkadaşlar hiçbir fikir yokmu?

Saygılar

 

[cdroy1]

yukarıyı okumadan yazmışım kusura bakma
sanırım formu temizle kodu bulmalısın

 

[Selçuk1]

sn. komutan63;

belki çok daha iyi çözümler üretilebilir ama şuanda aklıma şöyle bir şey geldi.
eğer formulleriniz sıralı olarak aşağıya doğru gidiyorsa, son yazılan satırı komple satır olarak silebiliriz. yani bir sonraki satır onun yerine geçeceği için yine formulleme yapılmış olur. belki işinizi görebilir.

Private Sub CommandButton2_Click()
sonsat = [a65536].End(3).Row
Rows(sonsat).Delete
End Sub

iyi çalışmalar.

 

[Mdemir63]

sn. komutan63;

belki çok daha iyi çözümler üretilebilir ama şuanda aklıma şöyle bir şey geldi.
eğer formulleriniz sıralı olarak aşağıya doğru gidiyorsa, son yazılan satırı komple satır olarak silebiliriz. yani bir sonraki satır onun yerine geçeceği için yine formulleme yapılmış olur. belki işinizi görebilir.

Private Sub CommandButton2_Click()
sonsat = [a65536].End(3).Row
Rows(sonsat).Delete
End Sub

iyi çalışmalar.

ilginize çok teşekkürler peki silinmesi gereken sayfa adını belirtemiz gerekmeyecekmi? Yanı Son bilginin silinmesini istediğim satır Sayfa 3 de onun için yani bu kodlar hangi sayfayı seçip son bilgiyi silecek

Saygılar

 

[Seyit Tiken]

Makro Kaydet ile formülünüzü Makrolaştırıp, silme işlemini yapan kod satırının altına yapıştırınız.

 

[Selçuk1]

sn.komutan63,

bu kodlar hali hazırda çalıştığınız sayfanın son satırını siler. eğer sayfa3 ün son satırını silecekseniz aşağıdaki gibi düzenlemeniz yeterlidir:

Sheets("Sayfa3").Rows(sonsat).Delete

iyi çalışmalar.

 

[Mdemir63]

Makro Kaydet ile formülünüzü Makrolaştırıp, silme işlemini yapan kod satırının altına yapıştırınız.

Hocam merhaba

bu söylediğinizi nasıl yapacağım. Formülüm =EĞER(G3="";"";1) olarak H sütununda H3 ile H655536 arası nasıl makro oluşturabilirim

Saygılar

 

[Mdemir63]

sn. komutan63;

belki çok daha iyi çözümler üretilebilir ama şuanda aklıma şöyle bir şey geldi.
eğer formulleriniz sıralı olarak aşağıya doğru gidiyorsa, son yazılan satırı komple satır olarak silebiliriz. yani bir sonraki satır onun yerine geçeceği için yine formulleme yapılmış olur. belki işinizi görebilir.

Private Sub CommandButton2_Click()
sonsat = [a65536].End(3).Row
Rows(sonsat).Delete
End Sub

iyi çalışmalar.

Sn: cellchuq verdiğiniz kodlar işlem yapmıyor

Saygılar

 

[Korhan Ayhan]

Selamlar,

Dosyanızda kullandığınız yapıyı bizler bilemediğimiz için sizin söylediğiniz bilgiler doğrultusunda çözüm üretmeye çalışıyoruz. Eğer örnek bir dosya üzerinde tam olarak nasıl bir işlem yapmak istediğinizi açıklarsanız yardımcı olabiliriz.

 

[Seyit Tiken]

Ekli dosya gönderiyorum. Çalışmanıza uyarlayınız. Basit, örnek bir uygulama yaptım. Formülü istenilen satıra kadar çoğaltabilirsiniz. Tabii, kodtaki satır aralığını yükseltmek kaydıyla.

 

[Mdemir63]

Ekli dosya gönderiyorum. Çalışmanıza uyarlayınız. Basit, örnek bir uygulama yaptım. Formülü istenilen satıra kadar çoğaltabilirsiniz. Tabii, kodtaki satır aralığını yükseltmek kaydıyla.

Teşekkürler Hocam elinize sağlık

Saygılar