Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

hakki83

Site Üyesi
Excel Versiyonu
Excel 2016
Excel Sürümü
32 Bit
Excel Dili
Türkçe
Merhaba saygılar hocalarımız,

Ekteki kodlar sürekli kulandığım Değerli Ömer Baran hocamızın kodlarıdır.

Kodların içindeki yıldızlarla belirttiğim kısım, başlığı olmayan sütunları silen kodlardır.
Örnek E1 ve I1 hücreleri boş. Bundan dolayı bu sütunları komple siliyor. Sorunsuz çalışıyor.

Talebim şudur:

Aynı şekilde A sütunundaki boş olan hücrelerin satırlarını da komple silen kodları oluşturabilir miyiz?

Bu kod grubunun içine, yine yıldızlarla çerçeveleyerek eklemek istiyorum.

Değerli hocalarımıza isteğimi dile getirdikten sonra;

Sormam gereken bir husus oluştu:

Bu örnek dosyayı hazırlarken, yıldızların arasındaki kodlardan en alttaki,
yani Xu2 ile başlayan satırı farkettim, sanki fazlalık gibi duruyor.
Ama Ömer hocam eklemişlerse muhakkak bir sebebi vardır.
Bu satırın görevi nedir acaba, silelim mi, dursun mu?


Teşekkürler.
 

Ekli dosyalar

Çözüm
Mevcut kodu aşağıdakiyle değiştirin.

NOT:
Site yazılımından kaynaklı sorun dolayısıyla; kodda 2 yerde yer alan
Application.Count ibarelerini Application.CountIf olarak değiştirin.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(12 satır)
Mevcut kodu aşağıdakiyle değiştirin.

NOT:
Site yazılımından kaynaklı sorun dolayısıyla; kodda 2 yerde yer alan
Application.Count ibarelerini Application.CountIf olarak değiştirin.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(29 satır)
 
Çözüm
Mevcut kodu aşağıdakiyle değiştirin.

NOT:
Site yazılımından kaynaklı sorun dolayısıyla; kodda 2 yerde yer alan
Application.Count ibarelerini Application.CountIf olarak değiştirin.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(29 satır)
Değerli Ömer hocamız, şimdi bilgisayara geçebildim, emeğinize sağlık. Teşekkür ederim. Kod da yenilenmiş oldu.
Kafamıza takılan bir sorun olursa arz ederim.
Sağ olunuz. :)
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst