Bir hücrede görünen yazılı veri

[u.L.a.s]

Merhabalar
Form üzerlerinde textbox larda mesela veri girilecek satırı tanımlamak adına işte ne gibi bir veri girileceğine dair bir belirtme yazılı olur öncesinde.

Örneğin Adınızı Yazınız yazar textboxta ama üstüne tıklayınca o yazı silinir. sonra ad soyad verisini yazarız.

bunu exceldeki sayfada hücre içeriklerinde yapabilir miyiz. bir hücre içeriğinde böyle bir tanım görünsün ama hücre üstüne gelince veri girerken o tanım tamamen silinecek verimiz görünecek. yazılan veriyi delete ile sildiğimizde tekrar o tanım verisi görünsün. örneğin hücreye veri giriniz. gibi bir veri görünsün.

bilgi ve yardımlarınızı rica ederim.

 

[Orion1]

Öyle değilde, hücre üstüne gelip sağ tık,açıklama seçip açıklama ekleyebilirsiniz.

 

[u.L.a.s]

makroyla olabilir sanki üstadım. mesela makroda şöyle bişey yazılabilir. eğer hücre boş ise hücrede "bir veri giriniz" yazsın ben üstüne gelip bir veri yazınca o yazdığım veri görünsün.

 

[turist]

VBA Editor'de Excel Sayfa kodu kısmına yazarak deneyin.
Örnek (A1) hücresi içindir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
With Target.Validation
.Delete
.Add Type:=xlValidateInputOnly
If Target <> "" Then
.InputMessage = ""
Else
.InputMessage = "Değer Giriniz"
End If
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
With Target.Validation
.Delete
.Add Type:=xlValidateInputOnly
If Target <> "" Then
.InputMessage = ""
Else
.InputMessage = "Değer Giriniz"
End If
End With
End Sub

 

[u.L.a.s]

bu kod evet sarı renkli bir uyarı yazısı gibi görünüyor ama hücrenin üstüne konumlanınca geliyor. ben hücre üstünde olsamda olmasamda bu bir değer giriniz verisi yazsın istiyorum hücrenin içerisinde yazsın yani bunu boş ise tabiki. ben bir veri girince o veri girdiğim veri olacak haliyle

 

[turist]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Target <> "" Then
Target = Target.Value
Else
Target = "Değer Giriniz"
End If

 

[u.L.a.s]

üstadım çok teşekkür ederim emeğine bilgine sağlık

 

[turist]

üstadım çok teşekkür ederim emeğine bilgine sağlık

Sağ olun, kolay gelsin.