veri girmesin...

[esad45]

ek te isteğimi yazdım gb

 

[mkanbur]

Olabilir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each x In Range("a1:d1")
If x = 1 Then
Range("a1:d1") = 2
x.Value = 1
End If
Next
End Sub

 

[esad45]

peki bunu a1 den a1500 e kadar yapacak olsak

peki bunu a1 den a1500 e kadar yapacak olsak a1 den a 1500 arası her satır ay ı zamanda b1 b 1500 c 1 c1500 d1 d 1500

 

[esad45]

Bu İŞe Yaramadi

Bu İŞe Yaramadi Bana Örnk Dosyada GÖnderebİlİrmİsİnİz