21/09/2021, 20:40
Kod:
If Target.Column = 3 And Target.Count = 1 And Target.Row > 1 Then
Dim sat As Long, ack As String, satir As Long, Sh As Worksheet
Cancel = True
sat = Target.Row
ack = Range("B1") & vbTab & ": " & Range("B" & sat) & vbLf & _
Range("C1") & vbTab & ": " & Range("C" & sat) & vbLf & _
Range("D1") & vbTab & ": " & Range("D" & sat) & vbLf & _
Range("E1") & vbTab & ": " & Range("E" & sat) & vbLf & _
Range("F1") & vbTab & ": " & Range("F" & sat) & vbLf & vbLf & _
"--------------------------------------------" & vbLf & vbLf & _
"Bu Kayıt Sarıçam-2'ye Aktarılsın mı?"
If MsgBox(ack, vbYesNo) = vbYes Then
Set Sh = Sheets("Sarıçam-2")
satir = Sh.Cells(Rows.Count, 3).End(3).Row + 1
Sh.Cells(satir, 1) = satir - 1
Cells(sat, 2).Resize(, 4).Copy Sh.Cells(satir, 2)
Sh.Cells(satir, 3) = "Sarıçam"
Cells(sat, 1).Resize(, 5).ClearContents
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Call SıraNo
MsgBox "Aktarma İşleminiz Başarılı.", vbInformation, "Başarılı Aktarma"
Else
MsgBox "Aktarma İşlemi İptal Edildi.", 16, "Uyarı"
End If"Bu Kayıt Sarıçam-2'ye Aktarılsın mı?" ifadesinin sonuna
örneğin
"Bu Kayıt Sarıçam-2'ye Aktarılsın mı?" , 16 "Onay"
yazıyorum fakat başarılı olamıyorum. Ne yazmam gerekli. Saygılarımla.