• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Çözüldü Satır Sütun Seçme ve Silme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

hakki83

Yeni Üye
Katılım
9 Ağu 2021
Mesajlar
767
Çözümler
3
Aldığı beğeni
224
Excel V
Office 2016 TR
Merhabalar


Her seferinde hocalarımıza sormaktansa şu kodları elimin altında şablon
gibi hazır bulundurmak istiyorum. Çünkü her an ihtiyaç olabiliyor.

Lütfen DENEME adlı sayfa için, ya da Sayfa1 için, şu 7 kodu en sade
haliyle yazar mısınız:

Sayfanın adı: DENEME ya da Sayfa1 (hangisi kolayınıza gelirse)


1.KOD
A1 hücresinden F1 hücresine kadar olan alanı seçip, silmeyi
(ClearContents)


2. KOD
A1 hücresinden sağa doğru son dolu sütuna kadar otomatik seçip, bu
alanı silmeyi


3.KOD
A1 hücresinden F1 hücresine kadar, ve aşağıya doğru son dolu satıra
kadar otomatik seçip, bu alanı silmeyi (Bu özellikle Borders.Color komutu için ihtiyaç oluyor)


4.KOD
A1 hücresinden A15 hücresine kadar olan alanı seçip, bu alanı silmeyi


5.KOD
A1 hücresinden aşağıya doğru son dolu satıra kadar otomatik seçip, bu
alanı silmeyi


6.KOD
A1 hücresinden A15 hücresine kadar, ve sağa doğru son dolu sütuna kadar
otomatik seçip, bu alanı silmeyi


7.KOD
A1 hücresinden sağa doğru son dolu sütuna kadar, ve aşağıya doğru son
dolu satıra kadar otomatik seçip, bu alanı silmeyi



Teşekkürler
 
Çözüm
Range(Cells(1, 1), Cells(ssut, 1)).ClearContents yerine
Range(Cells(1, 1), Cells(1,ssut)).ClearContents 'sadece 1. satırı son sütuna kadar sil

ss = Cells(Rows.Count, 1).End(xlUp).Row 'Son satır
Range(Cells(1, 1), Cells(ss,ssut)).ClearContents 1. satırdan son satıra ve son sütuna kadar sil
Azeaep hocam son sütuna kadar temizle kodunda bir hata var sanıyorum.
Son sütun adedi kadar satıra uyguladı.
 
Range(Cells(1, 1), Cells(ssut, 1)).ClearContents yerine
Range(Cells(1, 1), Cells(1,ssut)).ClearContents 'sadece 1. satırı son sütuna kadar sil

ss = Cells(Rows.Count, 1).End(xlUp).Row 'Son satır
Range(Cells(1, 1), Cells(ss,ssut)).ClearContents 1. satırdan son satıra ve son sütuna kadar sil
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst