Yazı bulunan bir hücreye başaka bir sayfadan veri alma

[ersany]

Merhabalar

6 tane birleştirilmiş bir hücereye yazı yazıyorum fakat bu yazının arasında bir tarih veya bir sayı toplamı geçiyor bu tarih veya sayı toplamını yazmış olduğum bu yazı arasına alabilirmiyim.

deneme deneme deneme 25.05.2005 deneme deneme 30 kişi

yukaradaki yazı tek bir hücrede veya birleştirilmiş bir kaç hücrede tarih ve sayıyı başka bir sayfadaki bir hücreden almak istiyorum

teşekkürler

ersan

 

[Mahmut Bayram]

B4 hücresinde tarih olsun. B5 te de rakam yani 30
aşağıdaki formülü istediğiniz hücreye yazınız

="deneme"&" deneme"&" deneme"&" "&METNEÇEVİR(B4;"gg.aa.yyy")&" deneme"&" deneme"&B5&" "&" kişi"

 

[ersany]

merhabalar

hızlı cevap için çok teşekkürler
sorunum çözüldü

tekrar bir başlık açmadım ama bir sorunum daha var

bir hücreye yazdığım rakamla bir sayıyı başka bir hücreye yazı ile yazdırabilir miyim?
80 sekesen gibi
tekrar teşekkürler

ersan

 

[TRABLUS]

Bu sorduğunuz 2. soru için, site içerisinde arama yaparsanız, daha önceden bu konu bayağı irdelendi.
Saygılarımla

 

[HIDROKINON]

B2'de sayı değeriniz olsun B6'ya yazı ile yazdırır. Aşağıdaki kodu modül sayfasına kopyalayın.
Function yaz$(sayi)
Dim b$(9)
Dim y$(9)
Dim m$(4)
Dim v$(15)
Dim c$(3)
b$(0) = ""
b$(1) = "BİR"
b$(2) = "İKİ"
b$(3) = "ÜÇ"
b$(4) = "DÃ?RT"
b$(5) = "BEÞ"
b$(6) = "ALTI"
b$(7) = "YEDİ"
b$(8) = "SEKİZ"
b$(9) = "DOKUZ"
y$(0) = ""
y$(1) = "ON"
y$(2) = "YİRMİ"
y$(3) = "OTUZ"
y$(4) = "KIRK"
y$(5) = "ELLİ"
y$(6) = "ALTMIÞ"
y$(7) = "YETMİÞ"
y$(8) = "SEKSEN"
y$(9) = "DOKSAN"
m$(0) = "TRILYON"
m$(1) = "MİLYAR"
m$(2) = "MİLYON"
m$(3) = "BİN"
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
a$ = ""
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$ = "BİRBİN") Then e$ = "BİN"
s$ = s$ + e$
Next x
If s$ = "" Then s$ = "SIFIR"
If pozitif = 0 Then s$ = "" + s$
yaz$ = s$
GoTo tamam
hata: yaz$ = "hata"
tamam:
End Function

 

[ersany]

merhabalar

cevaplarınız için teşekkürler

modül kullanımını bilmiyorum öğrendikten sonra deneyeceğim

tekrar teşekkürler

ersan

 

[HIDROKINON]

Modül Eklemek için
Alt+ F11 açılan sayfadaki "Project-VBA Project" penceresi içinde sağ tıkla. Açılan popup menüden insert>modüle komutunu ver.

 

[ersany]

merhabalar

HIDROKINON arkadaşım çok teşekkür ederim halletim

ersan