Dosyada, Belirlenen Sekmelerin Bilgileri Silinmesin

[1Al2Ver]

Merhaba,

Sayıları 20 den fazla olan sekmelerimin içinden, örneğin TAKIM (sayfa10) isimli sekmenin verileri silinmesin istiyorum.

Aşağıdaki kod, tüm sayfaların A2:M300 aralığını siliyor,

Koda nasıl bir ekleme yapmalıyız ki "TAKIM" isimli sekmenin içindeki verileri silmesin.

Teşekkür ederim.

Sub SayfalarıTemizle()
Dim sor
sor = MsgBox("Veriler Silinecek, Eminmisiniz?", vbQuestion + vbYesNo, "Silme İşlemi")
Select Case sor
Case vbYes
For i = 2 To Sheets.Count
Sheets(i).Range("A2:M300").ClearContents
Next i
End Select
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyin,"Sayfa1" de silinecekse
Döngüyü "1" den başlatın, silmeye 2. sayfadan başlıyor

Sub SayfalarıTemizle()
Dim sor
sor = MsgBox("Veriler Silinecek, Eminmisiniz?", vbQuestion + vbYesNo, "Silme İşlemi")
Select Case sor
Case vbYes
For i = [COLOR="Red"]2 To[/COLOR] Sheets.Count
If Sheets(i).Name <> "TAKIM" Then Sheets(i).Range("A2:M300").ClearContents
Next i
End Select
End Sub

 

[Ömer BARAN]

Sayın PLİNT ben yazana kadar soruyu cevaplandırmış.
Bu nedenle cevabı sildim.

 

[isyankarzarar]

LÜTFENNN ACİİİLLLL YARDIMMM

MERHABALAR SAYIN HOCALARIM
excel de stok takibi yapmakta olduğum bir tabloda
L sütununda her hangi bir satıra her hangi bir değer girince 1 satır boşluk bırakan bu formülü yazmıştınız çalıştı
ancak
1-değer yazdığım hücreyi silince eklenen satırın silinmesi için ne yapmam gerekli
2-diğer bazı sütunlardaki S W X Z gibi var olan formüllerim eklenen satırda olmuyor ne yapmam gerekli

şimdiden teşekkürler...


Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("L:L")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Rows(Target.Row + 1).Insert shift:=xlDown
Application.EnableEvents = True

 

[1Al2Ver]

Merhaba
Aşağıdaki gibi deneyin,"Sayfa1" de silinecekse
Döngüyü "1" den başlatın, silmeye 2. sayfadan başlıyor

Sub SayfalarıTemizle()
Dim sor
sor = MsgBox("Veriler Silinecek, Eminmisiniz?", vbQuestion + vbYesNo, "Silme İşlemi")
Select Case sor
Case vbYes
For i = [COLOR="Red"]2 To[/COLOR] Sheets.Count
If Sheets(i).Name <> "TAKIM" Then Sheets(i).Range("A2:M300").ClearContents
Next i
End Select
End Sub

Sayın Plint merhaba,

Teşekkür ederim,

Öğrenmek adına ; bu koda bir de "RAPOR" sayfasını eklesem, yani "RAPOR" sayfasını da silme desem (sayfa sıra takip etmiyor[Sayfa8]) nasıl yaparım?

If Sheets(i).Name <> "TAKIM" Then Sheets(i).Range("A2:M300").ClearContents

satırının altına ;

If Sheets(i).Name <> "[COLOR="Red"]RAPOR[/COLOR]" Then Sheets(i).Range("A2:M300").ClearContents

yazdım ama başarısız oldum.

 

[PLİNT]

ilgili bölüme "and" ekleyip artırabilirsiniz;

'.....
 For i = 2 To Sheets.Count
[COLOR="Blue"]If Sheets(i).Name <> "TAKIM" And Sheets(i).Name <> "RAPOR" Then Sheets(i).Range("A2:M300").ClearContents[/COLOR]
Next i
'......

 

[1Al2Ver]

ilgili bölüme "and" ekleyip artırabilirsiniz;

'.....
 For i = 2 To Sheets.Count
[COLOR="Blue"]If Sheets(i).Name <> "TAKIM" And Sheets(i).Name <> "RAPOR" Then Sheets(i).Range("A2:M300").ClearContents[/COLOR]
Next i
'......

Teşekkür ederim Sayın PLİNT, zahmetleriniz ve ilginiz için.

Saygılarımla.

 

[PLİNT]

Teşekkür ederim Sayın PLİNT, zahmetleriniz ve ilginiz için.

Rica ederim kolay gelsin.