Sayfa silme sorunu

[muratgunay48]

Arkadaşlar, sayın hocalarım, kodum var şöyle başlıyor

ChDir "C:\Users\muratgunay48\Desktop\XXX\"
Workbooks.Open Filename:= _
"C:\Users\muratgunay48\Desktop\XXX\1.xls"
Sheets("TÜMÜ").Select
ActiveWindow.SelectedSheets.Delete
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft



Sil demişim zaten, neden tekrar onay istiyor? Çok fazla dosya olduğu için onaylamak zaman alıyor. Bunu nasıl engelleyebilirim.
Teşekkür ederim.
Saygılarımla.

 

[Necdet]

Merhaba,
Kendinize uyarlayınız.

Application.DisplayAlerts = False

Sheets("TÜMÜ").Delete

Application.DisplayAlerts = True

 

[muratgunay48]

Merhaba,
Kendinize uyarlayınız.

Application.DisplayAlerts = False

Sheets("TÜMÜ").Delete

Application.DisplayAlerts = True

Hocam teşekkür ederim.
Şu şekilde yaptım oldu.

ChDir "C:\Users\muratgunay48\Desktop\XXX\"
Workbooks.Open Filename:= _
"C:\Users\muratgunay48\Desktop\XXX\1.xls"
Sheets("TÜMÜ").Select

Application.DisplayAlerts = False
Sheets("TÜMÜ").Delete
Application.DisplayAlerts = True

Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Rows("1:2").Select
Selection.Delete Shift:=xlUp

Hocam bir şey daha sorsam, eklediğim dosya ile ilgili. Bu yapıştırma bilgisi nasıl gider. Ama mutlaka Evet'e tıklamam lazım yoksa Paste hatası veriyor.
Saygılarımla.

 

[volki_112]

Hocam teşekkür ederim.
Şu şekilde yaptım oldu.

ChDir "C:\Users\muratgunay48\Desktop\XXX\"
Workbooks.Open Filename:= _
"C:\Users\muratgunay48\Desktop\XXX\1.xls"
Sheets("TÜMÜ").Select

Application.DisplayAlerts = False
Sheets("TÜMÜ").Delete
Application.DisplayAlerts = True

Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Rows("1:2").Select
Selection.Delete Shift:=xlUp

Hocam bir şey daha sorsam, eklediğim dosya ile ilgili. Bu yapıştırma bilgisi nasıl gider. Ama mutlaka Evet'e tıklamam lazım yoksa Paste hatası veriyor.
Saygılarımla.

Ekli dosyayı görüntüle 257981

Bu islemim basina ve sonunda da yuakrida verilem displar alerts kodunu yaz

 

[Necdet]

Sanırım kodları makro kaydet ile aldınız.
Satır ya da sütunu seçmek için önce Select yapmanıza gerek yok. Doğrudan silebilirsiniz.

Columns("A:A").Delete

Rows("1:2").Delete

gibi

 

[muratgunay48]

Sanırım kodları makro kaydet ile aldınız.
Satır ya da sütunu seçmek için önce Select yapmanıza gerek yok. Doğrudan silebilirsiniz.

Columns("A:A").Delete

Rows("1:2").Delete

gibi

Evet hocam, makro kaydet ile almıştım. Bir dosyayı biçimlendirme olduğu için kolayıma geldi. İşte ortala, Font'u şu yap, 12 font yap. A sütununu kırmızı yap gibi.
Dediğinizi anladım. Teşekkür ederim.