t = Sheets("data").[a1:a30000].Find(bilinmeyen).Row

[gokmensen]

For s = 5 To 500

bilinmeyen = Sheets("sheet1").Range("A" & s).Value

t = Sheets("data").[a1:a30000].Find(bilinmeyen).Row

.....

next s

seklindeki makro, data sayfasinin A kolonunda 1 den 30.000 e kadar bakip da bilinmeyeni bulunca donguyu durduruyor. Onune "on error ..." seklinde denemeler yaptiysam da, bulamamasi halinde bir sonraki donguyle devamini saglayamadim.

satir olarak t satirindan once yada baska bir yere ne yazmaliyim?

yardimci olana cok tesekkurler, benim gibi kendini gelistirenlere de iyi calismalar

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

For s = 5 To 500

bilinmeyen = Sheets("sheet1").Range("A" & s).Value

if worksheetfunction.countif(sheets("data").[a:a],bilinmeyen)>0 then
t = Sheets("data").[a1:a30000].Find(bilinmeyen).Row
end if
.....

next s

 

[gokmensen]

Levent Bey,

Ne desem azdir. Keske memlekette olsam da, sizinle tanisip excel bilgimi sizin kadar olmasa da size yakin bir duzeye getirme sansim olsaydi...

Kod calisti, ilginiz ve hiziniz icin tesekkurler...

 

[Levent Menteşoğlu]

Levent Bey,

Ne desem azdir. Keske memlekette olsam da, sizinle tanisip excel bilgimi sizin kadar olmasa da size yakin bir duzeye getirme sansim olsaydi...

Kod calisti, ilginiz ve hiziniz icin tesekkurler...

Rica ederim. Güzel düşünceleriniz nedeniyle teşekkür ederim.

Endişeniz olmasın, forumumuz dünyanın neresinde olursa olsun biz Türkleri yada Türkçe bilenleri biraraya getirme amacını her zaman yerine getirecektir. Dünya internet sayesinde çok küçüldü, bakın şu anda bile fiziksel olarak olmasada düşünce olarak bir arada olabiliyoruz.

 

[gokmensen]

size katiliyorum ve eklemek istiyorum.

iyi ki bu site var...

herkese iyi calismalar