[Yardım]  Clear veya Başka Yöntem

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Clear veya Başka Yöntem

İleti#1)  erseldemirel2 » 20 May 2019 10:56

Arkadaşlar; sheet("sayfa1").clear tüm satır ve sütunları siliyor.

Ancak benim A ilr Z sütünları arası ve ilk 100 satır dolu.

101. satır itibariyle ne varsa bütün özellikleri dahil nasıl silinebilir?

"Clear" mantığı veya başka çözümler ile önerilerinizi yazabilirmisiniz? Teşekkürler
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 244
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Clear veya Başka Yöntem

İleti#2)  serhatyrdmc » 20 May 2019 11:10

Kod: Tümünü seç
Sub sil()
    Sheets("sayfa1").Range("A1:Z101").Select
    Selection.ClearContents
End Sub
Kullanıcı avatarı
serhatyrdmc
Yeni Başlamış
 
Adı Soyadı:Serhat Yardımcı
Kayıt: 28 Mar 2011 21:07
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Clear veya Başka Yöntem

İleti#3)  Orion1 » 20 May 2019 11:22

Buyurun.:cool:
Sub sil()
Sheets("sayfa1").Range("A1:Z101").clear
End Sub
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 468
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Cevap: Clear veya Başka Yöntem

İleti#4)  erseldemirel2 » 20 May 2019 11:30

Orion1 yazdı:Buyurun.:cool:
Sub sil()
Sheets("sayfa1").Range("A1:Z101").clear
End Sub


Belki sorum yanlış anlaşılmış olabilir. Ben işte bu aralık hariç silinsin istiyorum. Bu sayfada a1-z100 hariç silinsin istiyorum
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 244
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Clear veya Başka Yöntem

İleti#5)  erseldemirel2 » 20 May 2019 11:32

serhatyrdmc yazdı:
Kod: Tümünü seç
Sub sil()
    Sheets("sayfa1").Range("A1:Z101").Select
    Selection.ClearContents
End Sub


End Sub


Belki sorum yanlış anlaşılmış olabilir. Ben işte bu aralık hariç silinsin istiyorum. Bu sayfada a1-z100 hariç silinsin istiyorum
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 244
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Clear veya Başka Yöntem

İleti#6)  d_artagnan » 20 May 2019 12:12

"Clear" mantığı veya başka çözümler ile önerilerinizi yazabilirmisiniz?

o halde ben size clear mantığını anlatayım. Siz zaten kendi sorunuza cevabı bulursunuz. Arkadaşların yazdığı

Kod: Tümünü seç
Sub sil()
    Sheets("sayfa1").Range("A1:Z101").Select
    Selection.ClearContents
End Sub


A1 ile Z101 arasındaki alanı temizliyor. Dolayısı ile siz A102'den başlayıp Z999 gibi random bir sütun kolonu seçerek temizleyebilirsiniz. Yani kodu
Kod: Tümünü seç
Sub sil()
    Sheets("sayfa1").Range("A102:Z999").Select
    Selection.ClearContents
End Sub


yazarsanız çalışacaktır. Dediğim gibi Z999 random bir sayıdır. çok fazla veri yok ise bu kadar büyük sayı yazmaya gerek olmayabilir.
Kullanıcı avatarı
d_artagnan
Yeni Başlamış
 
Kayıt: 30 Nis 2019 08:13
Meslek: uzman
Yaş: 34
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Clear veya Başka Yöntem

İleti#7)  erseldemirel2 » 20 May 2019 12:24

d_artagnan yazdı:"Clear" mantığı veya başka çözümler ile önerilerinizi yazabilirmisiniz?

o halde ben size clear mantığını anlatayım. Siz zaten kendi sorunuza cevabı bulursunuz. Arkadaşların yazdığı

Kod: Tümünü seç
Sub sil()
    Sheets("sayfa1").Range("A1:Z101").Select
    Selection.ClearContents
End Sub


A1 ile Z101 arasındaki alanı temizliyor. Dolayısı ile siz A102'den başlayıp Z999 gibi random bir sütun kolonu seçerek temizleyebilirsiniz. Yani kodu
Kod: Tümünü seç
Sub sil()
    Sheets("sayfa1").Range("A102:Z999").Select
    Selection.ClearContents
End Sub



Teşekkürler kolay gelsin

yazarsanız çalışacaktır. Dediğim gibi Z999 random bir sayıdır. çok fazla veri yok ise bu kadar büyük sayı yazmaya gerek olmayabilir.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 244
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: Cevap: Clear veya Başka Yöntem

İleti#8)  serhatyrdmc » 20 May 2019 13:27

erseldemirel2 yazdı:
serhatyrdmc yazdı:
Kod: Tümünü seç
Sub sil()
    Sheets("sayfa1").Range("A1:Z101").Select
    Selection.ClearContents
End Sub


Belki sorum yanlış anlaşılmış olabilir. Ben işte bu aralık hariç silinsin istiyorum. Bu sayfada a1-z100 hariç silinsin istiyorum


Kod: Tümünü seç
Sub sil()
'Sütun Veri Silme
    Sheets("sayfa1").Columns("AA:IV").Select
    Selection.ClearContents

'Satır Veri Silme
    Sheets("sayfa1").Rows("101:50000").Select
    Selection.ClearContents
End Sub
Kullanıcı avatarı
serhatyrdmc
Yeni Başlamış
 
Adı Soyadı:Serhat Yardımcı
Kayıt: 28 Mar 2011 21:07
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Clear veya Başka Yöntem

İleti#9)  tasad » 20 May 2019 13:46

Alternatif olsun.
Kod: Tümünü seç
Sub sil()
Sheets("Sayfa1").Range("a101:z65000,aa1:zz65000").Select
Selection.ClearContents
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 599
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Clear veya Başka Yöntem

İleti#10)  erseldemirel2 » 20 May 2019 15:42

Herkese teşekkür ederim.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 244
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 0 misafir

Bumerang - Yazarkafe