Aktif Olan Hücrenin Sağına Doğru Doldurma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

tahsinanarat

Kullanıcı
Katılım
13 May 2019
Mesajlar
303
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Aktif olan hücreye;
1 yazdığımda Aktif hücreye yazdığım 1 in başına A koyarak, A1, sağına doğru her bir hücreye A2 A3 A4 olarak dolduracak,
2 yazdığımda yazdığım rakama 3 ekleyip A5 A6 A7 A8 olarak yazacak,
3 yazdığımda 6 ekleyerek A9 A10 A11 A12 Yazacak
4 yazdığımda 9 ekleyerek A13 A14 A15 A16 yazacak
5 YAZDIĞIMDA 12 Ekleyerek A17 A18 A19 A20 şeklinde devam edecek

Böyle bir makroya ihtiyacım var, yardımcı olacak hocalarıma şimdiden teşekkürler.
 
Userform içindeki kodları tanımlama/raporlama
Otomatik Güncellenen Fatura Şablonu Hazırlama
Tarihe göre sırala Oylamaya göre sırala
Merhabalar Sn. tahsinanarat;
Örnek olarak şu kodları kullanabilirsiniz.
-- İlgili sayfanın, kod bölümüne ekleyiniz.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(44 satır)
 
Oyla 0 Olumsuz oyla
Sn. @AhmetRasim 37 ekip için verdiğiniz kodlardan faydalanarak yaptım, çalışıyor bir sıkıntı yok. İlginize çok teşekkür ediyorum.
Eğer bu aşağıdaki kodun daha kısa yazılır bir şekli varsa üstatlardan yardım bekliyorum. Teşekkürler

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(335 satır)
 
Oyla 0 Olumsuz oyla
Merhaba Sayın @tahsinanarat .

Sayın @AhmetRasim 'in müsadeleriyle alternatif öneride bulunayım dedim.
Aynı sonucun elde edilmesi gerekir.

A1 hücresine değer yazıp sonucu gözlemleyin.
Hücreye 1, 2, 3, 4 veya 5 yazılmalıdır, J sütununa kadar işlem yapılır.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(6 satır)
 
Oyla 0 Olumsuz oyla
Aşağıdaki kodu direk ilgili sayfanın kod kısmına yapıştırıp deneyiniz.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(13 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
SN @cakarem yine harikalar yaratmışsınız, çok teşekkür ediyorum.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(13 satır)

yazdığım sutuna da değer yazması için yukarıdaki gibi kullanacağım, çok teşekkür ediyorum.
Target.Offset(0, i + 1) = "A" & deger + (deger - 1) * 3 + i
yerine
Target.Offset(0, i) = "A" & deger + (deger - 1) * 3 + i
olarak kullanacağım.
 
Oyla 0 Olumsuz oyla
Rica ederim. Çözümü kendinize göre güncelleyebilmenize sevindim. Konu çözüme ulaştı ise konuyu kilitliyorum.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt