Ad Tanımlamayı Formüle Aktarmak İçin Macro İle Bilgiyi Yapıştırmak

1 2

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.

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

(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

1 2