Hücrede birleşik olan verinin istenilen kısmının VBA kod ile ayrılması

[HOOGEZAND]

Merhabalar,
A3 Hücresinde "2020/1460 Numara" adında bir metin mevcut. Bu metnin C5 Hücresine 2020/1460 şeklinde yazmasını istiyorum.
Bununla ilgili VBA kodu nasıl yazabilirim.

yardımlarınız için şimdiden teşekkürler.

 

[Saban Sertkaya]

Merhabalar,

Tekrar tekrar kod yazmaya gerek kalmaması açısından, bence sorunuzu daha detaylı (ve tamamını) sorun.
Lütfen yanlış anlamayın, zira sadece C5'e 2020/1460 yazılacaksa neden kodla uğraşıyorsunuz, el ile yazın denilebilir.
Yine de sadece sorduğunuz kısım için;

Sub dene()
[C5] = Mid([A3], 1, 9)
End Sub

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Range("C5") = Split(Range("A3"), " ")(0)

 

[HOOGEZAND]

Merhabalar,

Tekrar tekrar kod yazmaya gerek kalmaması açısından, bence sorunuzu daha detaylı (ve tamamını) sorun.
Lütfen yanlış anlamayın, zira sadece C5'e 2020/1460 yazılacaksa neden kodla uğraşıyorsunuz, el ile yazın denilebilir.
Yine de sadece sorduğunuz kısım için;

Sub dene()
[C5] = Mid([A3], 1, 9)
End Sub

Hocam soruyu kısa ve öz olarak sorma gereği duydum. Uzun soru yazarsam karışıklığa neden olabilir diye düşündüm. Yazmış olduğunuz kod kısmen işimi gördü. Şöyleki A3 Hücresi "2020/1460 Numara" yazınca C5 Hücresine istediğim 2020/1460 ibaresini yazıyor, fakat A3 hücresinde "2020/14 Numara" ibaresi girdiğimde C5 hücresine 2020/14 N olarak sonuç veriyor.

 

[HOOGEZAND]

Merhaba,
Deneyiniz...

Range("C5") = Split(Range("A3"), " ")(0)

Hocam kod çalışıyor herhangi bir sorun çıkmadı. Yardımlarınız için çok teşekkürler.

 

[HOOGEZAND]

Hocam bir ricam daha olacak,
A3 hücresinde "Dosya No: 2020/1460 Numara" yazılı, VBA kodu ile yalnızca 2020/1460 numarasını C5 hücresine yazacak şekilde nasıl bir kod oluşturabilirim.

 

[ÖmerBey]

Format bu şekilde olacaksa verdiğim koddaki (0) ifadesini (2) olarak değiştiriniz. Format değişikliği olacaksa farklı formatları içeren bir örnek yükleyin ona göre bakalım.

 

[HOOGEZAND]

Format bu şekilde olacaksa verdiğim koddaki (0) ifadesini (2) olarak değiştiriniz. Format değişikliği olacaksa farklı formatları içeren bir örnek yükleyin ona göre bakalım.

Hocam, dediğiniz gibi 0'ı 2 yapınca sorun çözüldü. Yardımlarınız için çok teşekkürler.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...