Tarihi nasıl yazdırabilirim

[akilic54]

Değerli arkadaşlar. Sorgu ekranındaki, sorgulaması yapılan mükellefin altında görüşme tarihi yazılınca ikinci sayfaya kayıt nasıl yapabiliriz

 

[Necdet]

Merhaba,

Aşağıdaki kodların "SORGU EKRANI" nın kod bölümünde olmalı ve Tebligat yapıldı sorunuza verilen yanııttan sonra (Yani B7 hücresi) otomatik çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B7]) Is Nothing Then Exit Sub
On Error GoTo Son
If Target.Value = "" Then Exit Sub
Set Bul = Sheets("BİLGİ EKRANI").Range("B:B").Find([B3], LookIn:=xlValues)
If Not Bul Is Nothing Then
MsgBox Bul.Row
Sheets("BİLGİ EKRANI").Cells(Bul.Row, "L") = [B6]
Sheets("BİLGİ EKRANI").Cells(Bul.Row, "M") = [B7]
End If
Son:
End Sub