düşeyarada verinin bulunduğu sütun bir başka sayfada is

[ATEMİ]

düşeyara formulünde öğrenilmek istenen verinin bulunduğu sütun bir başka sayfada ise ne yapmam gerekir teşekkürler

 

[birol_mumcu]

merhaba;
formülde sütuna gelen kısmı diğer sayfa ya aktarın
örnek:
=DÜÞEYARA(A2;B2:B15;1;1);"var";"yok")
=DÜÞEYARA(A2;Sayfa!1B2:B15;1;1);"var";"yok") gibi
dosya ekte

 

[ATEMİ]

birol arkadaşım dosyayı bir inceleyebilirmisin teşekkür

birol ilgine çok teşekkür ederim ama ben bunu beceremedim dosyayı yollasam yardımcı olurmusun.
birde sayfada bir soru daha olacak 680,20 rakamını altıyüzseksenYTL yirmiYKR a çevrilmesini istiyorum formülünüde öğrendim ama benim sayfamda yapamıyorum teşekkürler.
=yaziyacevir()

 

[Ali]

Alt+F11 ile VBA düzenleyiciyi açıp Insert menüsünden modül oluşturun
Aşağıdaki kodları modüle ekleyin.

Public Function yaziyacevir(Lira)
Dim LiraStr As String
Dim YTL As String, Kurus As String

If Not IsNumeric(Lira) Then GoTo Sayiolmali

LiraStr = Format(Abs(Lira), "0.00")

YTL = Left(LiraStr, Len(LiraStr) - 3)
Kurus = Right(LiraStr, 2)

yaziyacevir = IIf(Lira < 0, "Eksi ", "") & Cevir(YTL) & " YTL " & Cevir(Kurus) & " Kr"

Exit Function

Sayiolmali:
yaziyacevir = "Lütfen sayı girin"
End Function



Private Function Cevir(SayiStr As String) As String
Dim Rakam(15)
Dim c(3), Sonuc, e

Birler = Array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
Onlar = Array("", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")
Binler = Array("trilyon ", "milyar ", "milyon ", "bin ", "")

SayiStr = String(15 - Len(SayiStr), "0") + SayiStr

For i = 1 To 15
Rakam(i) = Val(Mid$(SayiStr, i, 1))
Next i

Sonuc = ""
For i = 0 To 4
c(1) = Rakam(i * 3 + 1)
c(2) = Rakam(i * 3 + 2)
c(3) = Rakam(i * 3 + 3)
If c(1) = 0 Then
e = ""
ElseIf c(1) = 1 Then
e = "yüz"
Else
e = Birler(c(1)) + "yüz"
End If
e = e + Onlar(c(2)) + Birler(c(3))
If e <> "" Then e = e + Binler(i)
If (i = 3) And (e = "birbin ") Then e = "bin "
Sonuc = Sonuc + e
Next i

If Sonuc = "" Then Sonuc = "00"

Cevir = UCase(Mid(Sonuc, 1, 1)) + Mid(Sonuc, 2, Len(Sonuc) - 1)
End Function

 

[Ali]

Diğer sorunuz içinde;
Düşeyara ile hangi değerlerin nereye gelmesi istediğinizi belirtebilirmisiniz

 

[ATEMİ]

selam

arkadaşım fructose ilgine çok teşekkür ediyorum senin verdiğin bilgileri yeni modüle kopyaladım formülü girdikten sonra şöyle bir hata verdi;Ambiguous name detected:yaziyacevir. #değer# hatası verdi.
birde düşeyara ile ilgili dosyayı yolluyorum sanırım önceki açılmadı. orada elle yazılacak sayfada herşey açıklandı teşekkür ederim.

 

[Ali]

Gerekli düzeltmeleri yaptım.Ekte düşeyara özelliğini ve yazıya çevirme özelliğini inceleyin

 

[ATEMİ]

selam

birol arkadaşım; verdiğin formül işe yaradı fakat ben unvan, adres, vergi dairesi, vergi numarasında olmak üzere hepsinde aynı işi görmesini istiyorum bu formülde birisini yapıyor diğerlerinde aynı işi yapmıyor. dosyada senin verdiğin formülleri girip ekte yolluyorum bu dosya üzerinde yapabilirmisin. teşekkür ederim.

 

[Ali]

Ambiguous name detected yazıyor demişsiniz. Verdiğim kod modülde kalsın diğer modülleri silin.