Ad tanımlamayı formüle aktarmak için macro ile bilgiyi yapıştırmak istiyorum.
Macro hazırladım ama eksik oldu. Tamamlayamadım. Yardımcı olabilecek arkadaşlara teşekkür ederim.

Örneğinizin içinde "Macro ile D31 hücresindeki bilgiyi kopyalayıp A33 hücresine = işareti koyup kopyalanan değeri yapıştırıp enter yapmasını istiyorum." şeklinde belirttiğiniz husus ise probleminiz aşağıdaki kodu deneyin

Sub DgrAta()

    Range("D31").Copy

    Range("A33").PasteSpecial Paste:=xlPasteValues

    Application.CutCopyMode = False

    dgr = Range("a33").Text

    Range("A33").FormulaR1C1 = "= " & dgr

End Sub

Formula2 burdaki 2 yi silebilirsinizde.

(16/10/2023, 17:41)feraz yazdı: Formula2 burdaki 2 yi silebilirsinizde.

PHP Kod:

Sub test()
    With ThisWorkbook.Worksheets("Ad Tanýmlama Deðer Getirme")
        .Range("A33").Formula2 = "=" & .Range("D31").Value2
    End With
End Sub 


Sayın @feraz bey makroda hata verdi acaba ne yapmalıyım?

---

Sayın @atoykan bey ilginiz için teşekkür ederim. Kod çalışıyor.

Rica ederiz iyi çalışmalar.

(18/10/2023, 11:47)yyhy yazdı:

(16/10/2023, 17:41)feraz yazdı: Formula2 burdaki 2 yi silebilirsinizde.

PHP Kod:

Sub test()
    With ThisWorkbook.Worksheets("Ad Tanýmlama Deðer Getirme")
        .Range("A33").Formula2 = "=" & .Range("D31").Value2
    End With
End Sub 


Sayın @feraz bey makroda hata verdi acaba ne yapmalıyım?

---

Sayın @atoykan bey ilginiz için teşekkür ederim. Kod çalışıyor.

Abey bir bakın dikkatlice hataya o zaman anlarsınız nedenini.Yinede yazayım Tr karakter  harf hatası var sayfa isminde.
Her mesajda Tr karakter harfi düzeltin yazmaktan gına gelmişti ve yazmamıştım ve zaten bekliyordum o mesajıda