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

Katılım
28 Temmuz 2006
Mesajlar
260
A1 hücresinde E yazıyor biçim özelliklerinden hücrenin Excel olarak gözükmesini Nasıl sağlayabilirz?
Teşekkürler...
 
Katılım
28 Temmuz 2006
Mesajlar
260
Teşekkür Ederim
Hücre Biçimlendirmede başka bir hücreden bağlantı yapmak mümkün mü ?
 

uzmanamele

Uzman
Uzman
Katılım
26 Eylül 2007
Mesajlar
9,421
Excel Vers. ve Dili
excel 2010
merhaba
e harfi için excel adını tanımlayıp, hücreye =e şeklinde yazarsanız olur mu?
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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.

Kod:
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

.
 
Katılım
28 Temmuz 2006
Mesajlar
260
Yapmak istediğim sadece bir hücre değil
Örnek Dosyada Gerekli Açıklamalar Yaptım.
Teşekkürler...
 

Ekli dosyalar

uzmanamele

Uzman
Uzman
Katılım
26 Eylül 2007
Mesajlar
9,421
Excel Vers. ve Dili
excel 2010
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.
 
Katılım
28 Temmuz 2006
Mesajlar
260
Hocam Teşekkürler Olmadı Malesef Hücre içeriğini hiçbir şekilde değiştirmemem gerekiyor, amaç görüntü.
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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.

Kod:
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
.
 
Üst