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

HOOGEZAND

Altın Üye
Katılım
18 Eylül 2012
Mesajlar
58
Excel Vers. ve Dili
EXCEL 2016 TÜRKÇE
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.
 
Katılım
6 Temmuz 2015
Mesajlar
925
Excel Vers. ve Dili
2003
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,086
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Deneyiniz...
Kod:
Range("C5") = Split(Range("A3"), " ")(0)
 

HOOGEZAND

Altın Üye
Katılım
18 Eylül 2012
Mesajlar
58
Excel Vers. ve Dili
EXCEL 2016 TÜRKÇE
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

Altın Üye
Katılım
18 Eylül 2012
Mesajlar
58
Excel Vers. ve Dili
EXCEL 2016 TÜRKÇE
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,086
Excel Vers. ve Dili
2007 Türkçe
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

Altın Üye
Katılım
18 Eylül 2012
Mesajlar
58
Excel Vers. ve Dili
EXCEL 2016 TÜRKÇE
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,086
Excel Vers. ve Dili
2007 Türkçe
Rica ederim,
İyi çalışmalar...
 
Üst