Arabul

[yesilcan]

DeĞerlİ Hocalarim Ve ArkadaŞlarim Ek'dekİ Dosyada Elİmden GeldİĞİnce Derdİmİ Anlatmaya ÇaliŞtim.umarim Yardimci Olabİlİrsİnİz.

En Derİn Saygi Ve Sevgİlerİmle..

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub ara()
On Error Resume Next
Dim hucre As Range
For Each hucre In [c9:c45].SpecialCells(xlCellTypeConstants, 2) 
Set s1 = Sheets("" & hucre.Value)
If WorksheetFunction.CountIf(s1.[a:a], Sheets("KONTROL").TextBox1) > 0 Then
hucre.Next = Sheets("KONTROL").TextBox2
End If
Next
End Sub

 

[yesilcan]

LEVENT Hocam değerli vaktini ayırıp cevap yazdığın için çok teşekkür ederim fakat yapmak istediğim şeyin tam açıklayamadığım için verdiğin cevap pek faydalı olmadı.çok özür dilerim.affınıza sığınarak sorumu düzeltip ekde tekrar gönderiyorum.

yardımların için şimdiden teşekkür ederim.

saygılarımla...

 

[yesilcan]

arabul

diğer hocalarım ve arkadaşlarımdan da yardım bekliyorum.

 

[yesilcan]

arabul

değerli hocalarım ve arkadaşlarım sorum anlaşılmadımı acaba merak ediyorum.cevap gelmedi.sorum açık ve anlaşılır değilse tekrar gönderebilirim.

eğer anlaşılsaydı umarımki yardımcı olurdunuz buna inanıyorum

en derin saygılarımla...