Sayfa Varsa değerleri alsın.

[mrwarrior]

Merhaba. Benim yaptığım dosyada sayfalar içinde veri yoksa sil şeklinde yaptım. Bu yüzden işim olursa oluşuyor. İşim yoksa siliniyor. Ancak başka bir sayfada veri al komutum var. veri al dosyası bütün sayfalardan veri almaya çalışıyor. Ancak ben sayfayı sildiğim zaman hata veriyor.

Örnek vermek gerekirse silinen sayfam "sayfa4" olsun. eğer sayfa4 varsa sayfa4 teki a1 hücresindeki veriyi "sayfa1" deki a1 e kopyalasın. eğer sayfa 4 yoksa makro bitsin.tabii bu a1 den a1 e a2 den a2 ye şeklinde devam etsin.

Umarım anlatabilmişimdir.
Hata gidermek için
on error resume next yazdım ama ben direck o makroyu alamasını istiyorum.

 

[Ömer BARAN]

Merhaba.

Cevabımın altındaki İMZA bölümünde yer alan açıklamalar doğrultusunda,
mevcut ve çalışan kod'lar da içesinde olacak şekilde bir örnek belge eklemenizde yarar var.
.

 

[mrwarrior]

sub test()
for i= 1 to 30
if sheet(i).name="deneme" then
sheet("sayfa1").cells(1,1).value=sheets(deneme).cells(1,1).value
end if
next
end sub

elle yazdım bunu. hatalar olabilir. acaba bu şekilde sayfa kontrolü yapabilirmiyim?
yada bunun daha kısa yolu var mı ?

 

[vardar07]

Soru işaretli yerlere alınan verilerin yazılacağı sayfa adıdır. Mesela Sayfa1 yada sorgu gibi.

Sub Makro1()
For i = 1 To Sheets.Count
If Sheets(i).Name <> "[COLOR="red"]????[/COLOR]" Then
syf = Sheets(i).Name
Sheets("[COLOR="Red"]????[/COLOR]").Cells(3, 1).Value = Sheets(syf).Cells(i, 1).Value
End If
Next