sayfadaki sütunlara özel makro atama

[alprr]

ekte belirmiş olduğum dosyada açıklamaları bulabilirsiniz.
önceden bir sütun için bir makro vardı fakat ben başka bir sütundaki değişmeyi eklemeye çalışınca makro çalışmıyor. yapmaya çalıştığım kod aşağıdadır.
ayrıca bir istediğim 2. birşeyi tam yapamadım. açıklamada anlatmaya çalıştım.

teşekkür ederim.

Sub worksheet_Change(ByVal Target As Range)
On Error GoTo son

If Intersect(Target, [G:G]) Then
If Intersect(Target, [G:G]) = "" Then
GoTo son
End If
Application.EnableEvents = False
Target = Format(Date, "mm") & "/" & Format(Target, "0000") & "-" & Format(Date, "yyyy")
End If


If Intersect(Target, [U:U]) Then
Dim a As String, b As String
Application.EnableEvents = False
If Intersect(Target, [U:U]) = "" Then
Cells(Target.Row, "t") = "=" & Cells(Target.Row, "t") & "+" & 0
End If
a = "=" & Cells(Target.Row, "t") & "+" & Target

Cells(Target.Row, "t") = a
End If


son:
Application.EnableEvents = True
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [G:G,U:U]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Column = 7 Then
    Target = Format(Date, "mm") & "/" & Format(Target, "0000") & "-" & Format(Date, "yyyy")
    ElseIf Target.Column = 21 Then
    If IsNumeric(Target) Then
    Cells(Target.Row, "T") = "=" & Replace(Cells(Target.Row, "T").Formula, "=", "") & "+" & Replace(Target, ",", ".")
    End If
    End If
Son:
    Application.EnableEvents = True
End Sub

 

[alprr]

tamamdır. teşekkür ederim.
benim 1 sorum daha var.
istediğim bir printerın istediğim tepsisine göre makro ayarlayamazmıyım?
bunun çözümü yok gibi birşey duydum doğrumudur?
varsayılanları farklı tepsiler olan 2 printer şeklindede 2. printer ekleyemedim.??