Makrolu düşeyara

[numan şamil]

Merhaba Arkadaşlar
Forumdan aldığım bazı kodlar kullanarak makro ile düşeyara ve bazı işlemler yapmaya uğraştım. Ekli dosyada "Veri" adlı sayfasında olan bilgileri diğer sayfalara düşeyara ile dağıtıyor Yalnız bir sorun ile karşılaştım eğer sayfalar arasında düşeyaranın baz aldığı "H2" hücresindeki değer veri sayfasında yoksa işlem o sayfada sonlanıyor son sayfaya kadar gitmiyor?

Örnek olarak Ekli dosyada veri sayfasındaki aktar butonuna bastığımda "r sayfasında işlem noktalanıyor "z sayfasına kadar gitip işlemi bitirmesi gerekmektedir
Ayrıca kodlarda lüzümsuz yazılan kodlar varmı?Baka bilrmisiniz?

 

[irfancantr]

Merhaba,

On Error GoTo Son

yazan yeri

On Error Resume Next

ile değiştirip dener misiniz?

 

[numan şamil]

Merhaba
alakanıza teşekkür ederim
Orjinal dosyamda dediğin şekilde değiştirp denemiştim ancak gözümden kaçan birşey olmuş
Orjinal dosyamda veri aktarımında eşleşen sayfalardaki ("H2") hücresinde
Bazılarında 55(a) ve 45-B gibi değerler var bu sayfalarda aktarımı yapmıyormuş
1)Bunun bir çözümü var mı?
2) orjinal dosyam yaklaşık 100 sayfadan oluşuyor bu tür sayfaların bulunduğu sayfalardan sonraki sayfalarda veri aktarımı olmuyor
kodlarda bir eksiklik varmı?

1 nolu dosyayı bu sorunlara göre tekrar güncelledim kontrol edebilirmisiniz?

 

[irfancantr]

Merhaba
alakanıza teşekkür ederim
Orjinal dosyamda dediğin şekilde değiştirp denemiştim ancak gözümden kaçan birşey olmuş
Orjinal dosyamda veri aktarımında eşleşen sayfalardaki ("H2") hücresinde
Bazılarında 55(a) ve 45-B gibi değerler var bu sayfalarda aktarımı yapmıyormuş
1)Bunun bir çözümü var mı?
2) orjinal dosyam yaklaşık 100 sayfadan oluşuyor bu tür sayfaların bulunduğu sayfalardan sonraki sayfalarda veri aktarımı olmuyor
kodlarda bir eksiklik varmı?

1 nolu dosyayı bu sorunlara göre tekrar güncelledim kontrol edebilirmisiniz?

Merhaba,

If [F3] = 1 Then
Range("C6") = WorksheetFunction.VLookup(Range("H2"), Sheets("veri").Range("C3:[B][COLOR="Red"]J5[/COLOR][/B]"), 2, 0)
Else
[C6] = ""
End If

Kodlardan pek anlamam ama kırmızı ile işaretlediğim yere dikkat ederseniz ismi yazılı olan ilk 3 sayfaya veri aktarımı yapıyor sanırım.

J102 olarak yada kaç sayfanız var ise sayfa sayısı+2 olarak düşünün , değiştirerek dener misiniz?

 

[numan şamil]

Merhabalar

If [F3] = 1 Then
Range("C6") = WorksheetFunction.VLookup(Range("H2"), Sheets("veri").Range("C3:J5"), 2, 0)
Else
[C6] = ""
End If
Bahsettiğiniz yer veri tarama alanıdır
Kusura bakma ilk örnek dosyayı hazırladığımda veri sayfasındaki veri aralığı C3:J5 idi bunu unutmuşum Hatırlattığınız için teşekkür ederim.Veri tarama aralığını C3:j100 olarak değiştirdim şu anda çalışıyor
1. nolu mesajdaki dosyayı güncelledim.

Sayın uzmanlarımdan veya kodları iyi bilenlerden modüle 1 deki kodlarda ileride sıkıntı olacak yerler veya eksiklikler varsa düzeltirlerse sevinirim