hücrede = Sayfa3!#BAŞV! hatası

[airborne]

hücrede = Sayfa3!#BAÞV! hatası

user form üzerinden sayfa3 teki 1. satırdaki verileri kayıt sil butonu ile siliyorum. ama sayfa 4'e geçtiğimde 1 satırda tüm hücrelerde = Sayfa3!#BAÞV! hatası veriyor. nedenini anlayamadım.

 

[danersin]

sn. airborne, nedeni zaten excel'in yapması gereken bu. yani bir hata yok excel'in yaptığında. herhangi boş bir excel kitabında da bunu deneyebilirsiniz. sayfa4'de bir hücreye =sayfa3!a1 yazarsanız ve daha sonra ister makro ile ister el ile gidip sayfa3 teki a1 hücresini silerseniz excel =sayfa3!başv! yani adı geçen başvuru hücresini bulamadım diye hata verecektir. eğer hücremiz a2'e olsaydı ve biz 1. satırı silseydik bu sefer excel'e bizim formüldeki referansımızı düzeltmesi için bir şans vermiş olurduk. o zaman excel =sayfa3!a2 şeklindeki formülü kendiliğinden sayfa3a1 yapardı.

 

[airborne]

sayın danersin bir comondbutton ile sayfa üçteki verileri, sayfa4 nasıl aktarabiliriz. yalnız, sayfa4 formlar var bu formlar 20 satırlık. mesala form a5'ten başlıyor a25 kadar sonra 8 satırlık bir aradan sonra a33ten başlayıp a25'e kadar gidiyor bunun gibi 20 sayfa var. yardımcı olursanız sevinirim

 

[airborne]

sayın danersin bir comondbutton ile sayfa üçteki verileri, sayfa4 nasıl aktarabiliriz. yalnız, sayfa4 formlar var bu formlar 20 satırlık. mesala form a5'ten başlıyor a25 kadar sonra 8 satırlık bir aradan sonra a33ten başlayıp a25'e kadar gidiyor bunun gibi 20 sayfa var. her formun arasında 8 satırlık boşluk var. örnek dosyanız varsa eklerseniz veya yardımcı olursanız sevinirim.

 

[airborne]

yukarıda bahsettiğim konuyla ilgili olarak şu kodu kullanıyorum ama;
Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
Range("A1:A1000").Select
Selection.Copy
Sheets("Sayfa4").Select
Range("a1:a20;a28:a48").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

yapıştırmak isteğim hücreleri gösteren Range("a1:a20;a28:a48").Select satırındaki range hatası veriyor. bunu nasıl düzeltebilir

 

[Levent Menteşoğlu]

";" noktalı virgül yerine "," virgül kullanın.

 

[airborne]

leventm bey ";" yerine nokta kullandım ama ekteki hatayı verdi nasıl düzeltebilirim. benim için matbu formada uygulanacağı için bu konu çok önemli. bir de şunu merak ediyorum ilk Range ("A1:A100).select in yanına "B1:B1000" ve "C1:C1000"i ekleyebilirmiyiz.yardımlarınız için teşekkürler

 

[airborne]

bana göre çok zor ama yardımcı olacak arkadaşlara çok kolay olmalı. ayrıca

ilk Range ("A1:A100).select in yanına "B1:B1000" ve "C1:C1000"i

yerine "E1:E100" ve "H1:H100"i koyabilirmiyiz

 

[Levent Menteşoğlu]

A1:A1000,B1:B1000 ve C1:C1000 için

Range("A1:C1000").select şeklinde deneyin.

E1:E100 ve H1:H100 için

Range("E1:E100,H1:H100").select şeklinde yazın.