Otomatik değer atamak ?

[HD1975]

Merhaba ;

A sütunundaki hücrelere değer yazdıldıkça D,E,F ve K sütunlarındaki hücrelere
değer olarak "0" yazan bir makro ihtiyacım var.


Saygılar

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayınız..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
On Error Resume Next
    If Target <> "" Then
        Range(Cells(Target.Row, "d"), Cells(Target.Row, "f")) = 0
        Cells(Target.Row, "k") = 0
    End If
End Sub

.

 

[HD1975]

Kod otomatik olarak çalışmıyor ayrıca çalıştırmaya kalkıncada bağlan penceresi açılıyor.

Saygılar

 

[Ömer]

Kodları module değil çalıştığınız sayfanın kod bölümüne kopyalamanız gerekir.A sütununa veri girince kod çalışacaktır.

.

 

[HD1975]

öyle yaptım ama olmadı....

 

[HD1975]

Bu sefer oldu ama değerleri bir üst satıra yazıyor...

 

[Ömer]

#2 nolu mesajı değiştirdim, tekrar deneyiniz..

.

 

[HD1975]

Teşekkür Ederim..

 

[HD1975]

Değer yerine harf yazarsak bun hücreye atamıyor.

Örnek ,
Cells(Target.Row, "k") = T002


SAYGILAR

 

[HD1975]

Değer yerine harf yazarsak bunu hücreye atamıyor.

Örnek ,
Cells(Target.Row, "k") = T002 bu şekilde olduğu zaman hücreye bilgiyi yazmıyor.T002 yerine rakam yazarsa atıyor.


SAYGILAR

 

[Ömer]

"T002"

Bu şekilde deneyiniz..

.

 

[mersilen]

Cells(Target.Row, "k") = "T002"

bu şekilde deneyiniz

ömer bey benden önce cevaplamış bile,

 

[bmutlu966]

Değer yerine harf yazarsak bunu hücreye atamıyor.

Örnek ,
Cells(Target.Row, "k") = T002 bu şekilde olduğu zaman hücreye bilgiyi yazmıyor.T002 yerine rakam yazarsa atıyor.


SAYGILAR

Rakamsal olmayanlar için tırnak kullanın, kodu bu şekilde değiştirin...

Cells(Target.Row, "k") = "T002"