isim yazılınca ünvanı ve tarihi yazdırmak

[ozcanya]

arkadaşlar küçük bir yardım rıca etsem

 

[Necdet]

Merhaba,

Aşağıdaki kodlar ilgili sayfanın (Sayfa1) kod bölümünde olmalı.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim Sayfa As Worksheet
Set Sayfa = Sheets("Sayfa2")
If Intersect(Target, [C6]) Is Nothing Then Exit Sub
If Target.Value = "" Then
    Range("C7:C8,C11:C18,C20,C23").ClearContents
    Range("C7").Interior.ColorIndex = xlNone
    Exit Sub
End If
With Sheets("Sayfa2").Range("A:A")
    Set c = .Find(Trim(Target.Value), LookIn:=xlValues)
    If Not c Is Nothing Then
        Range("C7") = Sayfa.Cells(c.Row, "B")
        Range("C7").Interior.ColorIndex = xlNone
        Range("C8") = Date
    Else
        Range("C7") = "Pesonel Bulunmadı"
        Range("C7").Interior.ColorIndex = 3
    End If
End With
End Sub

 

[ozcanya]

çok teş.
Yazdır putonu yapabilirmiyiz acaba

 

[Necdet]

çok teş.
Yazdır putonu yapabilirmiyiz acaba

"çok teş." i pek anlamadım ama, bence butona gerek yok.

Sayfada çift tıklama bu iş için yeterli

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "$B$1:$C$23"
ActiveSheet.PrintOut
End Sub