seçili alana sabit veri yazdırma örneğin:"tamam"

[husem]

merhaba arkadaşlar,
excel'de örneğin a2:a50 arasındaki hücreleri mause ile seçtim.
bu seçimden sonra butona tıklayarak seçili olan bu alana veri yazdırmak istiyorum. sabit bir veri örneğin "tamam"

nasıl bir kod kullanmalıyım acaba?
yardımcı olabilirmisiniz?

 

[hamitcan]

sub secilialanayazdir()
range("a2:a50")="Tamam"
end sub

 

[husem]

sub secilialanayazdir()
range("a2:a50")="Tamam"
end sub

seçili alan a2:a50 örnek verdim
ben mause ile seçtiğim alana yazmasını istiyorum,
seçili alan değişir ama yazılacak olan yazı "tamam" sabit

ben çalışma sayfasında nereyi seçtiysem oraya yazsın diye düşünmüştüm,
sanırım yanlış anlattım,

 

[kulomer46]

Merhaba

Aşağıdaki Kod işinize yarar.

Selamlar...

Sub Seçili_Alanı_Girdiğim_Veriyle_Doldur()
'07.10.2021   14:36
Dim Veri As Range, Metin As String
c = InputBox("Seçili Alana Girilecek Metin Yazınız", "Girilecek Metin", "Metin")
For Each Veri In Selection
    Veri.Value = c
Next
End Sub

https://www.dosyaupload.com/2M44w/Seçili_Alan_Uygulamaları__07.10.2021.xlsm

Secili_Alan_Uygulamalari__07.10.2021.xlsm dosyasını indir - download

Secili_Alan_Uygulamalari__07.10.2021.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[husem]

yardımlarınız için çok teşekkür ederim,

 

[kulomer46]

yardımlarınız için çok teşekkür ederim,

İhtiyaç halinde Excel ile ilgili her türlü soru ve sorunlarınızı bekliyoruz.

Selamlar...

 

[hamitcan]

Bu şekilde deneyin.

sub secilialanayazdir()
selection="Tamam"
end sub

 

[husem]

sayın excel dosları merhaba,
daha önceki soruma ek bir konuda daha yardımınıza ihtiyacım var.

Seçili alana metin girdirirken,
bu işlemin sadece belirli bir sütun olmasını sağlayabilirmiyiz acaba?
sadece A sütunu olduğundan yapsın, yanlışlıkla başka sütunlar üzerindeyken tıkladığında işlem yapmasa, uyarı verse,

önceki kodlama buydu

Sub Seçili_Alanı_Girdiğim_Veriyle_Doldur()
'07.10.2021 14:36
Dim Veri As Range, Metin As String
c = InputBox("Seçili Alana Girilecek Metin Yazınız", "Girilecek Metin", "Metin")
For Each Veri In Selection
Veri.Value = c
Next
End Sub

 

[muratboz06]

Uyarı yaparsak seçili alandaki uygun olmayan her bir hücre uyarı verir, bence ihtiyaç yok.
Aşağıdaki kod sadece A sütununa veri yazar.

Sub Seçili_Alanı_Girdiğim_Veriyle_Doldur()
'07.10.2021 14:36
Dim Veri As Range, Metin As String
c = InputBox("Seçili Alana Girilecek Metin Yazınız", "Girilecek Metin", "Metin")
For Each Veri In Selection
If Veri.Column = 1 Then 'A sütun numarası 1 dir.
Veri.Value = c
End If
Next
End Sub

 

[husem]

Uyarı yaparsak seçili alandaki uygun olmayan her bir hücre uyarı verir, bence ihtiyaç yok.
Aşağıdaki kod sadece A sütununa veri yazar.

Sub Seçili_Alanı_Girdiğim_Veriyle_Doldur()
'07.10.2021 14:36
Dim Veri As Range, Metin As String
c = InputBox("Seçili Alana Girilecek Metin Yazınız", "Girilecek Metin", "Metin")
For Each Veri In Selection
If Veri.Column = 1 Then 'A sütun numarası 1 dir.
Veri.Value = c
End If
Next
End Sub

Sn muratboz06
çok teşekkür ederim,