Makro hatası! 1004 Range sınıfının Select yöntemi başarısız.

[gkhn2]

selamın aleyküm

forumdan bir arkadaş bu makroyu yazmıştı ben de geliştirmek istedim fakat 3 tane satır ekletemedim.

Sheets(a).Rows("1:1").Select
Sheets(a).Selection.Insert Shift:=xlDown
Sheets(a).Selection.Insert Shift:=xlDown

bunları ekleyince hata veriyor.

dosya aşağda
http://s2.dosya.tc/server/uuep50/BADENEME_2.xls.html

 

[Muzaffer Ali]

hata veren satırdan önce

sheets(a).select

seçili (aktif) olmayan sayfada bir hücre seçemezsiniz.

 

[gkhn2]

hata veren satırdan önce

sheets(a).select

seçili (aktif) olmayan sayfada bir hücre seçemezsiniz.

yani nasıl yapmalıyım?

 

[Muzaffer Ali]

hata veren satı

Sheets(a).Rows("1:1").Select

dan önce

sheets(a).select

yani şu şekilde olacak

sheets(a).select
Sheets(a).Rows("1:1").Select

 

[gkhn2]

tamam seçme işlemi oldu ama bu sefer de

Sheets(a).Selection.Insert Shift:=xlDown

hata verdi

 

[ÖmerBey]

Selection.Insert Shift:=xlDown

şeklinde deneyiniz. Seçili alanda işlem yapmak istiyorsunuz. Sayfa belirmenizin anlamı yok.

 

[Muzaffer Ali]

Sheets(a).Rows("1:1").Select
Sheets(a).Selection.Insert Shift:=xlDown
Sheets(a).Selection.Insert Shift:=xlDown

satırlarını silin

Sheets(a).Select
Sheets(a).Rows("1:1").Insert
Sheets(a).Rows("1:1").Insert

satırlarını yazın

 

[gkhn2]

oldu dostlar sağolun ama görseldeki gibi ikinci ve üçüncü satıra kenarlık koydu. onu yokedebilir miyiz?

 

[halit3]

İşaretli çerçeve içindeki

Sheets(a).Rows("1:1").Select
Sheets(a).Selection.Insert Shift:=xlDown
Sheets(a).Selection.Insert Shift:=xlDown

yukarıdaki bölümü sil aşağıdaki bölümü ekle

Sheets(a).Rows("1").Insert Shift:=xlDown

 

[gkhn2]

İşaretli çerçeve içindeki

Sheets(a).Rows("1:1").Select
Sheets(a).Selection.Insert Shift:=xlDown
Sheets(a).Selection.Insert Shift:=xlDown

yukarıdaki bölümü sil aşağıdaki bölümü ekle

Sheets(a).Rows("1").Insert Shift:=xlDown

yaptım oldu dostum ama kenarlıkları da kopyalıyor onu bi türlü halledemedim.

 

[halit3]

Yukarıdaki resimde kopyalama ve yapıştırma bölümleri gözükmüyor.
Kodlarınızın resmi yerine dosyanızı kodlarıyla beraber buraya ekleyin ayrıca kodlarınızı
mesaj yazdığınız yerdeki # bu işarete tıklıyarak (CODE] buraya kodlarınızı yapıştırın. [/CODE )

1 nolu mesajdaki dosyada virüs uyarısı alıyorum ve dosya inmiyor

 

[PLİNT]

Merhaba

Kodlarınızın en altındaki bölümü aşağıdaki kırmızı bölümle komple değiştirin.(kenarlık oluşturan kodlar dahil)

'......
'.........
   Next
Sheets(a).PageSetup.Orientation = xlPortrait
Sheets(a).PageSetup.Order = xlDownThenOver
Sheets(a).PageSetup.TopMargin = 15
Sheets(a).PageSetup.BottomMargin = 30
Sheets(a).PageSetup.LeftMargin = 15
Sheets(a).PageSetup.RightMargin = 15
Sheets(a).PageSetup.FooterMargin = 15
Sheets(a).PageSetup.CenterHorizontally = True
'_________________
[COLOR="Red"]Sheets(a).Rows("1:2").Insert Shift:=xlDown
Sheets(a).Range("a4:f" & Sheets(a).Cells(Rows.Count, 2).End(3).Row).Borders.Weight = xlThin
  [/COLOR]   
'_____________________   
Next
End Sub

 

[gkhn2]

Yukarıdaki resimde kopyalama ve yapıştırma bölümleri gözükmüyor.
Kodlarınızın resmi yerine dosyanızı kodlarıyla beraber buraya ekleyin ayrıca kodlarınızı
mesaj yazdığınız yerdeki # bu işarete tıklıyarak (CODE] buraya kodlarınızı yapıştırın. [/CODE )

1 nolu mesajdaki dosyada virüs uyarısı alıyorum ve dosya inmiyor

Tamam birazdan dosyayı foruma yükliycem başka hesaptan.

 

[gkhn2]

Merhaba

Kodlarınızın en altındaki bölümü aşağıdaki kırmızı bölümle komple değiştirin.(kenarlık oluşturan kodlar dahil)

'......
'.........
   Next
Sheets(a).PageSetup.Orientation = xlPortrait
Sheets(a).PageSetup.Order = xlDownThenOver
Sheets(a).PageSetup.TopMargin = 15
Sheets(a).PageSetup.BottomMargin = 30
Sheets(a).PageSetup.LeftMargin = 15
Sheets(a).PageSetup.RightMargin = 15
Sheets(a).PageSetup.FooterMargin = 15
Sheets(a).PageSetup.CenterHorizontally = True
'_________________
[COLOR="Red"]Sheets(a).Rows("1:2").Insert Shift:=xlDown
Sheets(a).Range("a4:f" & Sheets(a).Cells(Rows.Count, 2).End(3).Row).Borders.Weight = xlThin
  [/COLOR]   
'_____________________   
Next
End Sub

Oldu dostum dosyayı yükliycem birazdan.

 

[Solaq]

Takip makrosu ile yaptığım için aşağıdaki hatayı anlayamadım yardımcı olur musunuz


Sub ListeyeEkle()
'
' ListeyeEkle Makro
'

'
Range("B3").Select
Selection.Copy
ActiveSheet.Next.Select
Application.Goto Reference:="R200C2"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Previous.Select
Application.CutCopyMode = False
Range("I21:K21").Select
Selection.Copy
ActiveSheet.Next.Select
Application.Goto Reference:="R200C12"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=3
Range("L16").Select
ActiveSheet.Previous.Select
Application.CutCopyMode = False