Hücredeki kelimenin aranması

[raburabu]

Merhaba Hacolarım

Öncelikle hayırlı cumalar dilerim
Ekli dosyada belirttiğim gibi hücredeki kelimenin farklı bir sayfadan aranması ve karşısındaki değerin gelmesini istiyorum. Şimdiden teşekkür ederim.

 

[zafer]

Merhaba


Ekli dosyayı inceleyiniz

 

[kan-nas]

Üstadım,

Sub BulListele2()
Set s1 = Sheets("FİRMALAR")
Set s2 = Sheets("genel")
s2.Range("A:A").ClearContents
son = s1.Cells(65536, 1).End(xlUp).Row
son1 = s2.Cells(65536, 2).End(xlUp).Row
For i = 2 To son1
ara = s2.Cells(i, 2)
Set c = s1.Range("A:A").Find(ara)
[COLOR="black"]If Not c Is Nothing Then[/COLOR]sat = c.Row
s2.Cells(i, 1) = s1.Cells(sat, 2)
End If
Next
End Sub

Yukardaki kodda " If Not c Is Nothing Then ne anlama geliyor. bunu çözemedim. Yardımcı olur musun.

 

[zafer]

Merhba


ara = s2.Cells(i, 2)

Sayfada A sütununda ara isimli değişkene atanan kelimeyi bul ve c 'ye ata
Bulamazsa nothing değeri atar.(yok anlamında, bulunmuyor gibi ) Bulursa kelimenin tamanını atar.
Set c = s1.Range("A:A").Find(ara)

Eğer C değişkeni nothing değeri almamışsa
Sat değişkenine c'nin satır numarasını ata

If Not c Is Nothing Then sat = c.Row

Bundan sonrasını biliyorsunuz.
s2.Cells(i, 1) = s1.Cells(sat, 2)

 

[raburabu]

ellerine sağlık zafer kardeş. Ancak firmalar sayfasında aynı firma olmasına rağmen isimleri getirmiyor. Sebebi nedir. çözemedim.

 

[zafer]

Merhaba

firmalar sayfasında aynı firma olmasına rağmen isimleri getirmiyor. Sebebi nedir. çözemedim.

Örnek verebilirmisiniz.Hangi firma?

 

[raburabu]

Merhaba




Örnek verebilirmisiniz.Hangi firma?

Merhaba zafer bey
Örnek dosya ekte gönderildi. Şimdiden teşekkür ederim.

 

[zafer]

Merhaba


İ I harflerine ve Kısalmalarda firma isimlerine uymazsanız verileri getirmez.

Aka Ambalaj Tic.A.Ş

Hücreye Aka Amb. yazarsanız getirmez
Hücreye yazılan Aka veya Aka Ambalaj olmalı.