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

Katılım
4 Haziran 2021
Mesajlar
37
Excel Vers. ve Dili
Excel 2019-Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
19 Nisan 2006
Mesajlar
6,677
Excel Vers. ve Dili
Excel 2013-Türkçe
Excel 2016-Türkçe
Merhaba,
13 (OnÜç) yazı ile olan kısmı nasıl alacak?
 
Katılım
4 Haziran 2021
Mesajlar
37
Excel Vers. ve Dili
Excel 2019-Türkçe
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"
 
Katılım
4 Haziran 2021
Mesajlar
37
Excel Vers. ve Dili
Excel 2019-Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
19 Nisan 2006
Mesajlar
6,677
Excel Vers. ve Dili
Excel 2013-Türkçe
Excel 2016-Türkçe
Sayı en fazla kaç oluyor?
 
Katılım
4 Haziran 2021
Mesajlar
37
Excel Vers. ve Dili
Excel 2019-Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
19 Nisan 2006
Mesajlar
6,677
Excel Vers. ve Dili
Excel 2013-Türkçe
Excel 2016-Türkçe
Evet.
Kolay gelsin.
İyi çalışmalar.
 

Mahir64

Destek Ekibi
Destek Ekibi
Katılım
19 Nisan 2006
Mesajlar
6,677
Excel Vers. ve Dili
Excel 2013-Türkçe
Excel 2016-Türkçe
Hele işin alım/satım/ihale/tahakkuk gibi işlerse çok pratik ve hızlı çözüm.
 
Katılım
4 Haziran 2021
Mesajlar
37
Excel Vers. ve Dili
Excel 2019-Türkçe
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.
 
Üst