Kelime Bulma hak.

[mydestek]

Merhaba,
Elimizde bir excel sayfası var.
Verdiğim kelime hangi kolonlardaki olduğunu tespit etmek istiyorum.
Aradığımı kelime A1, B1, C1 .... kolonlarında.

Daha sonra tespit ettiğim kolonu aşağıdaki örnekteki AX yerine kullanacağım.
Araya kolon eklendikçe AX sağa sola kayıyor.

If S1.Cells(i, "AX") <> s2.Cells(Bul.Row, "BQ") Then

Hesaplama başlamadan "Elma" hangi kolonda tespit edeceğim.

Sonra,
SET Elma =AY gibi set ederek if içinde kullanacağım.
Yeni hali If S1.Cells(i, Elma) <> s2.Cells(Bul.Row, "BQ") Then

Teşekkür.


Örnek dosya ektedir,
Örnek dosya da Borç ve Alacak kolonların arasına örneğin İade eklenirse Karşılaştırma formülü İade hariç çalışsın.İade kelimesini aratıp o kolonu da SET edersem İade içinde karşılatırma yapsın.

 

[askm]

Örnek ekleyebilir misiniz.

 

[mydestek]

Dosya ekledim.

 

[askm]

B ve C sütunlarında tutarlar mevcut. Aradığınız kelimenin hangi sütunda olduğunu bulmanız için tek bir ifade olması gerekir.
Yapmak istediğiniz işlemi biraz daha açıklayan bir örnek ekleyebilirseniz daha iyi olacak sanırım.

 

[mydestek]

B1 VE C1 deki başlık kolonuna göre tutar kıyas yapacağım.
Aslında "BORÇ" başlığı hangi kolonda olduğunu nasıl tespit ederim. (B1, C1 .... )

 

[askm]

Aşağıdaki şekilde kullanabilirsiniz.

Public IstenenSutun as integer
Sub ASKM_Sutun_Bul()
Dim SonStn As Integer
SonStn = Cells(1, 256).End(xlToLeft).Column
For i = 1 To SonStn
    If Left(Cells(1, i).Value, 4) = "BORÇ" Then
        IstenenSütun = i
        GoTo 10
    End If
Next i
10:
MsgBox "İstenilen sütun numarası..: " & IstenenSütun, vbInformation, "ASKM"
End Sub

Sizin kodlarda;
Call ASKM_Sutun_Bul
If S1.Cells(i, IstenenSutun) <> s2.Cells(Bul.Row, "BQ") Then
şeklinde kullanbilirsainiz.

 

[mydestek]

" GoTo 10 ve Next i 10: " ne için kullanılıyor.

Teşekkür. İşimi gördü.

 

[askm]

BORÇ kelimesini bulduğu anda döngüden çıkması için bu şekilde bir kod yazdım. Yani if şartını yerine getirirsen buradan devam et demek. Hem kodu hızlandırmış oluyor, Hem de BORÇ ifadesi 2 sütunda var ise 1 değeri bulup, işlemi bitiriyor.
İşinize yaramasına sevindim.

 

[mydestek]

BORÇ kelimesini bulduğu anda döngüden çıkması için bu şekilde bir kod yazdım. Yani if şartını yerine getirirsen buradan devam et demek. Hem kodu hızlandırmış oluyor, Hem de BORÇ ifadesi 2 sütunda var ise 1 değeri bulup, işlemi bitiriyor.
İşinize yaramasına sevindim.

Bende birden fazla if var, " GoTo 10 ve Next i 10: " bunları kullanmadan çalıştırdım.

Teşekkür.

 

[askm]

Kolay gelsin.