DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub test()
MsgBox "Ali " & range("A2") & " tarihinde okula gelmedi."
End Sub
Option Explicit
Sub Test()
If InStr(1, Range("A5").Value, Range("A2").Text) = 0 Then
Range("A5").Replace "tarihinde", Range("A2").Text & " tarihinde"
End If
End Sub
Sub test()
range("A5")= "Ali " & range("A2") & " tarihinde okula gelmedi."
End Sub
Teşekkürler işime yaradı, 2 nizede teşekkür ederimKod:Sub test() range("A5")= "Ali " & range("A2") & " tarihinde okula gelmedi." End Sub