VBA ile len kullanımı sonrası 0 ekleme

theorder · 25 Kas 2022

Merhabalar ,
Veri olarak Malzeme ve Malzemeye bağlı seri no var. burada 2 ayrım yapmak istiyorum. 11 karakter olanlar ve 11 karekterin altında olanlar diye. Bu bilgilere ek olarak ise 11 karakterin altında olanlar H sütununa yazılırken başına 10 karakteri tamamlayacak şekilde seri no nun sol tarafına 0 atmak istiyorum. örnek olarak 920446134 Seri nosu 9 karakter bu H sütununda yazılırken 0920446134 olarak yazılmasını istiyorum.

Yardımlarını bekliyorum, İyi çalışmalar dilerim.

Ömer BARAN · 25 Kas 2022

@theorder
Şu kod işinizi görecektir.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(11 satır)

Ömer BARAN · 26 Kas 2022

Bu, art arda yazdığım ikinci cevap oluyor.

-- Formül ile çözüm:
2 sütunlu sonuç isteğiyle ilgili formül ile çözüm önerisi de yazayım. Formülü G2 hücresine uygulayıp sağa ve aşağı kopyalayın.

Formül

=EĞER(VE(SÜTUN(A$1)=1;UZUNLUK($B2)=11);$B2;EĞER(VE(SÜTUN(A$1)=2;UZUNLUK($B2)&lt;11);YİNELE("0";11-UZUNLUK($B2))&amp;$B2;""))

-- Makro alternatifi (sonuçlar tek sütuna yazdırılır)
Uzunluğu 11 karakter olan/olmayan, tüm sonuçlar 11 karakter olarak aynı sütuna (G sütunu) yazdırılacaksa şu kod kullanılabilir.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(10 satır)

theorder · 26 Kas 2022

Ömer BARAN' Alıntı:
@theorder
Şu kod işinizi görecektir.

VBA:

İndirmek için giriş yapmanız gerekmektedir. (11 satır)

Ömer Bey,
Emeğiniz için Teşekkür ederim, Kod harika bir şekilde çalışıyor. Herhangi bir aksi durum yok. Alternatif olarak yazdığınız kod için minnettarım.

	Excel VBA ile DÜŞEYARA Kullanma boyaci 30 Eyl 2024 Makro Soruları
	Excel VBA F2 Enter Kullanma ExcelDepo 29 Kas 2023 Makro Soruları
	Excel VBA Kapalı Dosyaya Veri Yazma Feyzullah 24 Ara 2024 Makro Soruları
	Vba kod revize talebi ycicek 28 Şub 2020 Makro Soruları
	vba kopyala yapıştır berkbaba 14 Ocak 2020 Makro Soruları