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
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()
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
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.
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.