Aranan değeri bulup ilgili yere yazmak

[Bintang]

Üstad merhaba kendi çapımda bir bodro proğramı yapmaya çalıştım basit bir şey ama bazı yerlerde taklıldım bana yardımcı olursanız çok sevinirim. İlgili dosya ektedir. Şimdiden ilginiz için teşekkür ederim.

 

[Bintang]

Arkadaşlar lütfen bana yardım edermisiniz acaba

 

[muygun]

Merhaba;
Sorunuz anlaşılmıyor. Ama BANKA+ELDEN ÖDE.TAB. sayfasında B sütununa formül uyguladım inceleyin. (takılırsanız detaylı açıklama ile tekrar yazın)
İyi çalışmalar.

 

[Korhan Ayhan]

Merhaba,

Bir alternatif çözümde ben hazırladım. Kullanıcı tanımlı fonksiyon kullandım.

Kullanılan fonksiyon;

Function PERSONEL_BUL(Personel As Variant, Alan As Range, Sutun As Byte)
    Dim BUL As Range
    
    Set BUL = Alan.Find(Personel, , , xlWhole)
    If Not BUL Is Nothing Then
        If BUL.Offset(0, Sutun) = 0 Then
            PERSONEL_BUL = Empty
        Else
            PERSONEL_BUL = BUL.Offset(0, Sutun)
        End If
    End If
End Function

Uygulamalı örnek dosyayı da inceleyiniz.

 

[Bintang]

Detaylı soru

Merhaba;
Sorunuz anlaşılmıyor. Ama BANKA+ELDEN ÖDE.TAB. sayfasında B sütununa formül uyguladım inceleyin. (takılırsanız detaylı açıklama ile tekrar yazın)
İyi çalışmalar.

Üstadım günaydın malesef çözüme ulaşamadım detaylı hali ile ektedir.

 

[Bintang]

Merhaba,

Bir alternatif çözümde ben hazırladım. Kullanıcı tanımlı fonksiyon kullandım.

Kullanılan fonksiyon;

Function PERSONEL_BUL(Personel As Variant, Alan As Range, Sutun As Byte)
    Dim BUL As Range
    
    Set BUL = Alan.Find(Personel, , , xlWhole)
    If Not BUL Is Nothing Then
        If BUL.Offset(0, Sutun) = 0 Then
            PERSONEL_BUL = Empty
        Else
            PERSONEL_BUL = BUL.Offset(0, Sutun)
        End If
    End If
End Function

Uygulamalı örnek dosyayı da inceleyiniz.

Evet çok güzel olmuş bu Kullanıcı Tanımlı Fonksiyon ancak ben bunu gerçek dosyaya kopyalamak istediğimde başarılı olamadım. Sanırım hata yapıyorum rica etsem bu konuda yardımcı olurmusunuz.

 

[Bintang]

Üstadım merhaba formül çok güzel olmuş hemen hemen 1 aydır da kullanıyorum ancak ufak bir sorun var formül ara sıra #DEĞER hatası veriyor. Bende hücrelerin içerisine F2 ile girip çıkarak formül tekrar normale dönüyor bunu son zamanlarda daha sık yapar oldu acaba ne yapabilirim