Kutu "Profil" ifadesini eklemek

[k0081]

Merhaba arkadaşlar;

D4 hücresine : KUTU 50x50x5 formatında değerler giriyorum. burda KUTU ve 1 boşluk sabit olmak üzere diğerleri değişken.. buton yardımı ile G3 hücresine KUTU PROFİL 50x50x5 formatında yazdırabilirmiyim ?

yardımcı arkadaşa şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Degis()
    
    Range("G3") = Replace(Range("D4"), " ", " PROFİL ")
    
End Sub

.

 

[k0081]

Merhaba,

Hocam çok teşekkürler.,, yalnız ben eksik bilgi vermişim.. akşam çıkarken yazmıştım..

D4 hücresi sürekli değişken.. her zaman KUTU ifadesi yok başka, değerlerde var. Sac gibi,, hea gibi vs...

bir de şu var hocam ; D4 deki bilgiyi G3 ten itibaren, aynı sayfada bir tabloya yazdırıyorum.. Dolayısı ile g8 , g12 , g14 de rastlayabilir.. g3 sabit değil yani hocam. çok teşekkürler , saygılar..

 

[Korhan Ayhan]

Bu durumda örnek dosya eklerseniz çözüm daha net olacaktır...

 

[k0081]

Bu durumda örnek dosya eklerseniz çözüm daha net olacaktır...

Hocam örnek dosya özel çalışmam olduğu için ekleyemem. ama olayı anlatan kısa bir kodlama biçimini ekliyorum. benzer bir çalışma olacak..

If Target = "D6" Or Target = "D8" Or Target = "D10" Or Target = "D12" Or Target = "D14" Or Target = "D16" Or Target = "D18" Or Target = "D20" Or Target = "D22" Or Target = "D24" Or Target = "D26" Or Target = "D28" Or Target = "D30" Then
cap = Right(Cells(Satır, 7), Len(Cells(Satır, 7)) - 1)
Cells(Satır, 7) = "Ø" & cap & " İnşaat Demiri"
End If

bu kodda D14 gibi yazılan bir ifadeyi önüne çap işareti ekleyip sonuna da inşaat demiri yazmaktadır. D14 = ( Diameter 14 ) anlamındadır. ve D4 hücresine yazılır.. Teşekkürler..

 

[Korhan Ayhan]

Ben orjinal dosyanızı ekleyin demedim. Benzer veriler içeren basit bir dosya olayı kavramamıza yetebilir.

 

[k0081]

Tamam. bir örnek dosya ekliyorum.

Ekli dosyayı görüntüle yedek2.xlsm

*********************************************************
Bu soru çözümlenmiştir.. cevap yazan tüm arkadaşlara tekrar teşekkürler..
*********************************************************