belirlenen alandaki verilerin silinmesi

[anaksimona]

Merhaba;
arkadaşlar ekteki dosya ile alakalı yardımlarınızı rica edeceğim,
benim için gerçekten çok önemli,

ekli dosyada bulunan excell de 3 sheet var.
malzeme tanımları- sevk giriş ve kontrol adında.

benim sorunum sevk giriş şheet'inde şöyleki sevk girişte düşeyara formül var ve verileri malzeme tanımlarından çekmekte, bu dosya aslında bir sevk kontol dosyası yani siparişbazında çıkan ürünleri sevk girişe barkot okutucuyla yazıyorum ve kontrol sheetinde özet tablo ile alıp irsaliye ile karşılaştırıyoryum.

sorun : her bir siparişte be n sevk giriş dosyasını temizlemek zorunda kalıyorum. öyle bir makra yada işlem olmalıkı ben sayfa üzerinde başlat dediğim zaman sevk giriş şheetinde ilk satır ve formüller hariç veriler silinmeli,
bu konuda değerli yardımlarınızı rica ediyorum

 

[anaksimona]

arkadaşlar bilinm yokmu, sadece sevk giriş şheet'ine giriş adında bir buton ekleyip bu butona basınca formül hariç her şeyi silmesini istiyorum.
yardımlar için şimdiden teşekkürler..

 

[uzmanamele]

merhaba

aşağıdaki kodu standart modüle yazarak bir düğmeye atayınız.

Sub sil()
ss = Sheets("SEVK GİRİRİŞ").Range("a65536").End(3).Row
Sheets("SEVK GİRİRİŞ").Range("a2:a" & ss).ClearContents
End Sub

 

[usubaykan]

Merhaba;
Alternatif olsun.

Option Explicit
Sub Sil_Alternatif()
Dim Formül_Hariç_Sil As Boolean, Son_Satır As Long
    Son_Satır = Sheets("SEVK GİRİRİŞ").Range("A65536").End(3).Row
    Formül_Hariç_Sil = Range("A2:A" & Son_Satır).SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

 

[anaksimona]

merhaba;
denedim oldu ancak sayfa üzerine herhangi bir yenileme yada giriş adında bir buton gelmedi buı butonu nasıl getireceğim.
tşk.

 

[usubaykan]

Merhaba;

Eki inceleyiniz.

 

[anaksimona]

Hocam olmamış sanrım tekrar kontrol edermisiniz, buton çalışmıyor.

 

[usubaykan]

Merhaba;

Makro güvenliğinizi kontrol edip tekrar deneyiniz. Bende çalışıyor.

Araçlar/Makro/Güvenlik/Orta düzeyi seçin

Hocam olmamış sanrım tekrar kontrol edermisiniz, buton çalışmıyor.