Bence dediğiniz 0 ve formül olayı için konu açın whatsap sayfasına gerek olmadan anasayfa numaralarından yollansın.
Sub Whatsap_ekle_sil_guncelle()
Dim sonAna As Long, kac As Long
Dim syfAna As Worksheet, hatalimi As Boolean
Set syfAna = ThisWorkbook.Worksheets("Ana_Sayfa")
Application.ScreenUpdating = False
sonAna = syfAna.Range("A:A").Find("*", , , , , xlPrevious).Row
hatalimi = False
With ThisWorkbook.Worksheets("WHATSAPP")
.Unprotect "171717"
.Range("A2:A" & Rows.Count).ClearContents
If sonAna < 2 Then
hatalimi = True: GoTo son
End If
kac = WorksheetFunction.CountA(syfAna.Range("A2:A" & Rows.Count))
If kac = 1 Then
.Range("A2").Value = syfAna.Cells(sonAna, "AD").Value
GoTo son
End If
.Range("A2:A" & sonAna).Value = syfAna.Range("AD2:AD" & sonAna).Value
son:
Application.ScreenUpdating = True
.Protect "171717"
End With
On Error Resume Next
If hatalimi = True Then
MsgBox "Kaydedilecek yada güncellenecek yada silinecek veri yok.", vbCritical, "Hata"
Else
MsgBox "islem tamam.", vbInformation, "Bilgi"
End If
Set syfAna = Nothing
End Sub