İçerik Farklı Gözüken Farklı

[bendiler]

A1 hücresinde E yazıyor biçim özelliklerinden hücrenin Excel olarak gözükmesini Nasıl sağlayabilirz?
Teşekkürler...

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

@"xcel"

Detaylı bilgi için;

ÖZEL HÜCRE BİÇİMLERİ

.

 

[bendiler]

Teşekkür Ederim
Hücre Biçimlendirmede başka bir hücreden bağlantı yapmak mümkün mü ?

 

[uzmanamele]

merhaba
e harfi için excel adını tanımlayıp, hücreye =e şeklinde yazarsanız olur mu?

 

[bendiler]

Merhaba,

Bu şekilde deneyin.

@"xcel"

Detaylı bilgi için;

ÖZEL HÜCRE BİÇİMLERİ

.

Hocam tam olarak yapmak istediğim, A1 hücresine X1 yazıyor A6 Hücresinde Malzeme Adı Yazıyor A1 hücresinin hücre içeriğini değiştirmeden A6 daki Malzeme Adı nı A1 e nasıl yazdırabilirim? Ya da öyle gözükmesini sağlarım.
Teşekkürler...

 

[Ömer]

Hocam tam olarak yapmak istediğim, A1 hücresine X1 yazıyor A6 Hücresinde Malzeme Adı Yazıyor A1 hücresinin hücre içeriğini değiştirmeden A6 daki Malzeme Adı nı A1 e nasıl yazdırabilirim? Ya da öyle gözükmesini sağlarım.
Teşekkürler...

Sayfanın kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
    Target.NumberFormat = "General """ & [A6] & """"
End Sub

.

 

[bendiler]

Yapmak istediğim sadece bir hücre değil
Örnek Dosyada Gerekli Açıklamalar Yaptım.
Teşekkürler...

 

[uzmanamele]

merhaba
ad tanımlama ile yapabilirsiniz.

ekle / ad / tanımla
_X2 adı için ya ="Sıra No" yazabilirsiniz ya da ='N3'!$A$32
hücreye =_X2 yazdığınızda ekranda Sıra No görebilirsiniz.

 

[bendiler]

Hocam Teşekkürler Olmadı Malesef Hücre içeriğini hiçbir şekilde değiştirmemem gerekiyor, amaç görüntü.

 

[Ömer]

Yapmak istediğim sadece bir hücre değil
Örnek Dosyada Gerekli Açıklamalar Yaptım.
Teşekkürler...

Eklediğiniz dosyadan birşey anlayamadım. Daha sade ne yapmak istediğini açıklayan dosya ekleyin.

Örnek; aşağıdaki kodlar A1:A10 arasına B1:B10 daki verileri biçim olarak ekler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A10]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
    Target.NumberFormat = "General """ & Target.Offset(0, 1) & """"
End Sub

.