Hedef hücrede bilgi varsa, uyarı versin

[EKREM1661]

Değerli arkadaşlar, (iyi çalışmalar); Ekli dosyada örneğini düzenledim.. Verinin kaydedildiği diğer sayfa hücresinde veri var ise, uyarı vermesi için mevcut makro koduna ilave gerekiyor.. Şimdiden teşekkür ederim..

 

[askm]

Private Sub CommandButton2_Click()

Dim s1 As Worksheet: Set s1 = Sheets("VeriKaynağı")
Dim s2 As Worksheet: Set s2 = Sheets("Sayfa2")
Dim i As Integer

Application.ScreenUpdating = False
[K12].ClearContents

For i = 12 To [G21].End(3).Row
If [K12] = "" Then
   [K12] = Cells(i, "G")
Else
   [K12] = [K12] & "," & Cells(i, "G")
End If
Next i

'Private Sub CommandButton1_Click()
'For i = 12 To 20
  'say = say & Cells(i, 1) & ","
'Next
'Range("K12") = Mid(say, 1, Len(say) - 1)
'End Sub

Application.ScreenUpdating = True

If MsgBox("İşlemi onaylıyor musunuz ?", vbCritical + vbYesNo, "D İ K K A T") = vbYes Then
    If s1.Cells(s1.Range("A1") * 5, "N") <> Empty Then MsgBox "Hedef hücrede değer var", vbInformation: Exit Sub
    s1.Cells(s1.Range("A1") * 5, "N") = s2.Cells(12, 11)
    MsgBox "İşlem tamamlanmıştır.", vbInformation, "B İ L G İ"
Else
    MsgBox "İşlem iptal edilmiştir.", vbInformation, "B İ L G İ"
End If


[K12].ClearContents

End Sub