Soru Metnin İçinde Yer Alan Sayıyı Başka Bir Sayfadan Veri Olarak Almak

[Rorschach159]

Herkese selamlar

"İdaremizin ihtiyacı olan Malzeme Alımı işine ait 13 (OnÜç) adet mal/hizmet kaleminin" metnin içindeki 13 sayısını başka bir sayfadan almak istiyorum. Bunun için hangi kodu yazabilirim? Veri alacağım sayfa Bilgi Girişi C5 hücresi

 

[Mahir64]

Merhaba,
13 (OnÜç) yazı ile olan kısmı nasıl alacak?

 

[Rorschach159]

Sayıyı yazı olarak yazma makro linki diye bişey buldum onunla yapacaktım daha kolay bi yönetimi var mı? @Mahir64

İlk aşamada kendim şu şekilde bişey yaptım ama yazı ile yazdırmayı beceremedim.

="İdaremizin ihtiyacı olan Malzeme Alımı işine ait " & ('BİLGİ GİRİŞİ'!C5) & " adet mal/hizmet kaleminin, 4734"

 

[Rorschach159]

Hocam şu şekilde uzun uğraşlar sonucunda yaptım. @Mahir64
="İdaremizin ihtiyacı olan Malzeme Alımı işine ait "&('BİLGİ GİRİŞİ'!C5)& "("&yaz('BİLGİ GİRİŞİ'!C5)&")"&" adet mal/hizmet kaleminin, 4734"


Başka arkadaşlara yardımcı olur belki diye =yaz() makrosunun kodu şu şekilde *Başka siteden alıntı

Function yaz$(sayi)
Dim b$(9)
Dim y$(9)
Dim m$(4)
Dim v(15)
Dim c(3)

b$(0) = ""
b$(1) = "Bir"
b$(2) = "İki"
b$(3) = "Üç"
b$(4) = "Dört"
b$(5) = "Beş"
b$(6) = "Altı"
b$(7) = "Yedi"
b$(8) = "Sekiz"
b$(9) = "Dokuz"

y$(0) = ""
y$(1) = "On"
y$(2) = "Yirmi"
y$(3) = "Otuz"
y$(4) = "Kırk"
y$(5) = "Elli"
y$(6) = "Altmış"
y$(7) = "Yetmiş"
y$(8) = "Seksen"
y$(9) = "Doksan"

m$(0) = "Trilyon"
m$(1) = "Milyar"
m$(2) = "Milyon"
m$(3) = "Bin"
m$(4) = ""

a$ = Str(sayi)

If Left$(a$, 1) = " " Then pozitif = 1 Else pozitif = 0
a$ = Right$(a$, Len(a$) - 1)
For x = 1 To Len(a$)
If (Asc(Mid$(a$, x, 1)) > Asc("9")) Or (Asc(Mid$(a$, x, 1)) < Asc("0")) Then GoTo hata
Next x

If Len(a$) > 15 Then GoTo hata
a$ = String(15 - Len(a$), "0") + a$

For x = 1 To 15
v(x) = Val(Mid$(a$, x, 1))
Next x

s$ = ""
For x = 0 To 4
c(1) = v((x * 3) + 1)
c(2) = v((x * 3) + 2)
c(3) = v((x * 3) + 3)
If c(1) = 0 Then
e$ = ""
ElseIf c(1) = 1 Then
e$ = "Yüz"
Else
e$ = b$(c(1)) + "Yüz"
End If
e$ = e$ + y$(c(2)) + b$(c(3))
If e$ <> "" Then e$ = e$ + m$(x)
If (x = 3) And (e$ = "BirBin") Then e$ = "Bin"
s$ = s$ + e$
Next x

If s$ = "" Then s$ = "Sıfır"
If pozitif = 0 Then s$ = "Eksi" + s$

yaz$ = s$
GoTo tamam
hata: yaz$ = "Hata"
tamam:
End Function

 

[Mahir64]

Sayı en fazla kaç oluyor?

 

[Rorschach159]

150'yi geçmez nadirden de olsa olsa 100 kalem olur. Şöyle bi durum bazı yerlerde tutarları da yazı ile yazmak gerekebilir bu formülle yaparım mesela 1 milyon TL bile olabiliyor @Mahir64

 

[Mahir64]

Evet.
Kolay gelsin.
İyi çalışmalar.

 

[Rorschach159]

Evet.
Kolay gelsin.
İyi çalışmalar.

Hocam ilgiliniz için çok teşekkür ederim. Excelde bişeyler yapmak gerçekten çok keyifli.

 

[Mahir64]

Hele işin alım/satım/ihale/tahakkuk gibi işlerse çok pratik ve hızlı çözüm.

 

[Rorschach159]

Aslında kullandığımız bir yazılım var ama destek konusunda sıkıntılılar hemde lisans ücretleri sağolsunlar uçuk ve yaptıkları wordde makro gibi. Programa tık tık işliyorsunuz worde otomatik alıyor herşeyi.