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
