Son Boş Hücredeki Formülü Silmek

[Seyit Tiken]

Herkese selamlar,
Soru şu : A Sütunundaki son boş hücreyi nasıl silebiliriz?
A Sütunundaki değerler adet olarak değişkendir ve değerler formüllüdür. Yani son boş hücredeki formülü silip imleci oraya götürmek. Herkese teşekkür eder, hayırlı Ramazanlar diliyorum.

 

[Ali]

Sn Seyit Tiken.Aşağıdaki kodları deneyiniz.

Sub secsil()
Range("A65536").End(xlUp).Select 'Son dolu hücre seçilir
Range("A65536").End(xlUp).Value = "" 'Son dolu hücre silinir.
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub sil()
say = WorksheetFunction.CountIf([a:a], ">0") + 6
Cells(say, "a").Select
Selection.ClearContents
End Sub

 

[Seyit Tiken]

Sayın Fructose cevabınız için teşekkür ediyorum. Soruyu yeterince izah etmemiş olabilirim. Mantık şu : A Sütununda görünen değerlerimiz var ve bu değerler B Sütunundaki verilere bağlıdır. İmleci A Sütunundaki görünen değerlerin altan ilk boş hücreye nasıl götürebiliriz. Çünkü formüllü bir hücrede alınan değer yoksa yada sıfır ise, formüllü hücre boş gözükür. Bu kod "Range("A65536").End(xlUp).Select" hücredeki formülü, görünen bir değer olarak görüp, içi bomboş olan hücreye gider. Burda istenilen; A Sütunundaki görünen değerleri sayıp(görüp) altan bir boş hücreyi(boş hücrede formül mevcut) silip, imlecin oraya gitmesidir.

 

[Ali]

Bu kod "Range("A65536").End(xlUp).Select" hücredeki formülü, görünen bir değer olarak görüp, içi bomboş olan hücreye gider.

Bunun böyle olduğunu biliyorum Sn Seyit Tiken kendimi hiç makro bilmeyen biri gibi hissettirdiniz. Ben formül dolu hücrelerinde sayılacağını varsayımı ile yazdım yoksa bir zorluğu yoktu.

Sn Levent Beyin kodları işiniz görecektir. Saygılar.

 

[Seyit Tiken]

Sayın Levent Bey,
Teşekkür ediyorum. Saygılarımı sunuyorum. Bir şeyi merak ettim. Kodun "+6" kısmını çıkaramadım. Orayı "+4" yapınca istediğim gibi oldu. Ne anlama geldiğini merak ediyorum.. Hayırlı iftarlar diliyorum.

 

[Ali]

. Kodun "+6" kısmını çıkaramadım. Orayı "+4" yapınca istediğim gibi oldu.

Levent Bey A1 den itibaren 60 olan hücrenize kadar olan boş kısımı saydırmış ve bunu WorksheetFunction.CountIf fonksiyonuna dahil etmiş.

 

[Seyit Tiken]

Sayın Fructose,
Niyet bu değil. Konuyu daha sade ve anlaşılır bir şekilde izah etmek için, söylenmiş sadece. Kodların ruhundan anladığınızın farkındayım. Sizin bilgilerinizden yeterince faydalanıp, arşivimize atıyoruz.. Saygılarımı sunuyorum.

 

[kombo]

İyi akşamlar
.
.
say = WorksheetFunction.CountIf([b:b], ">0") + 3
Cells(say, "a").ClearContents
.
.
Bu kodlarla sondolu satırın bir altındaki satırı temizledik..

Yalnız (son dolu satırdan 65536'ya ) kadar nasıl yazmamız lazım?
B sütununda son dolu satırı seçip A sütununda bu satırdan aşağısını temizlemek.
(say,a65536) gibi...

 

[Korhan Ayhan]

Selamlar,

Sn. kombo,

Aşağıdaki gibi kullanabilirsiniz.

Range(Cells(Say, "A"), Cells(65536, "A")).ClearContents

 

[kombo]

Sn COST_CONTROL

Bazı prosedürleri bilmemek gerçekten büyük handikap.
Denemediğim şekil kalmadı ama hep "A" üzerine yoğunlaştığım için, tıkanıp kalmıştım.

İlginiz için teşekkür ederim.