Makroda elde edilen sonucun value olarak revize edilmesi hk.

[kemal turan]

Merhaba,
Aşağıdaki kodu makro uygulama ile elde ettim.Formül çubuğunda sonucu formül olarak gösteriyor.
Bu sonucu value olarak gösterebilmek için yardımlarınızı rica ediyorum.
Teşekkür ederim.
sub tarıh ()
Dim pir As String
Dim i As String
pir = InputBox("CARİ NO GİRİNİZ", "CARİ KAYIT")
Range("c3").Value = pir
Range("G3").Select
ActiveCell.FormulaR1C1 = "=IF(RC3<>"""",PLANLAMA!R3C3,"""")"
Range("G4").Select
ActiveCell.FormulaR1C1 = "=IF(R3C3<>"""",R[-1]C+31,"""")"
Range("G4").Select
Selection.AutoFill Destination:=Range("G4:G25"), Type:=xlFillDefault
Range("G4:G25").Select
Range("G3").Select
Range("G2").Select
Selection.Copy
Range("G26:G27").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[hamitcan]

Formül oluşturan satırlardan sonra aşağıda verdiğim satırı ekleyin.

ActiveCell.FormulaR1C1 = "=IF(RC3<>"""",PLANLAMA!R3C3,"""")"

[color=red]ActiveCell = ActiveCell.Value[/color]

 

[kemal turan]

Merhaba Sn.hamitcan bey
Value olarak oldu.
Fakat bir sorun çıktı. g3:g25 arasını formatı "dd.mm.yy" olması gerekiyor.
Yapmaya çalıştım olmadı.
Buna da yardımcı olabilirseniz sevinirim.

 

[kemal turan]

Sn.Hamitcan bey,
Sorun çözülmüştür.
Çok teşekkür ederim.