makro yerinekoy kodunu düzenleme

[mersilen]

Selamlar
A13=Rohstoffe auf 10:101:12 (Planet) metinini içermekte

Buradaki sayıları başka bir hücreye almak için

=YERİNEKOY(YERİNEKOY(A13;"Rohstoffe auf ";"");" (Planet)";"")

formülünü oluşturdum,formül doğru çalışıyor.Ben bu formülü kullandığım kodların içine yazmak için makro kaydetten yararlanarak kodunu öğrenmek istedim ama bir yerde hata veriyor
değerlendirebilir misiniz?

  Sub Makro1yerinekoy()
Dim sat As Integer
' Makro1yerinekoy Makro
'
sat = 13
'
    Range("F13").Select
    ActiveCell.FormulaR1C1 = _
        "=SUBSTITUTE(SUBSTITUTE(A" & sat & ",""Rohstoffe auf "",""""),"" (planet)"","""")"
    
    
    Range("F14").Value = "=SUBSTITUTE(SUBSTITUTE(A" & sat & ",""Rohstoffe auf "",""""),"" (planet)"","""")"
    
End Sub

 

[Ömer]

Merhaba,

.
 
 
sat = 13
 
Range("F13") = "=SUBSTITUTE(SUBSTITUTE(A" & sat & ",""Rohstoffe auf ""," _
                & """""),"" (Planet)"","""")"
 
 
.

Bu şekilde deneyiniz..

 

[mersilen]

Ömer bey
cevap için çok teşekkürler
formüldeki hatayı anlayamadım
açıklama yaparsanız sevinirim

 

[Ömer]

Bende bu cümlenizi anlayamadım.

Kod da hata mı var.

 

[mersilen]

Sizin kodda hata yok gayet güzel çalışıyor
benim kodda hata var
siz benim kodu & ile tekrar bölüp birleştirmişsiniz, bunun nedenini anlamadım

Range("F13") = "=SUBSTITUTE(SUBSTITUTE(A" & sat & ",""Rohstoffe auf ""," _
& """""),"" (Planet)"","""")"

 

[Ömer]

Sizin formül hatalı dediğiniz için denememiştim.

F14 için yazdığınız formülde bir hata yok.

Sadece "planet" için kullandığınız küçük harf p yerine büyük harf P kullanmanız gerekir.

.