Otomatik Veri Doldurma

[EKREM1661]

Değerli Arkadaşlar..!
Her hangi bir hücreye bir kelime/isim girildiğinde.. Enter ile hücreden çıkış yapınca bu kelimeyi alt alta 19 kez tekrar etsin/yazsın..ve alt-alta 20 adet mükerrer isim meydana gelsin..) Böyle bir kod lazım..
Ancak bu uygulama B3:G240 aralığında olacak, yalnız D ile F sütunları hariç tutulacak..

 

[ÖmerBey]

Merhaba,
Shift+Enter ile çıkarak bu istediğinizi makrosuz da yapabilirsiniz.
Önce ilgili alanı seçin > yazmak istediğiniz metni yazın (sadece ilk hücreye yazılacaktır) > Shift+Enter ile hücreden çıktığınız zaman seçtiğiniz alan otomatik olarak yazdığınız metinle dolacaktır.

İlle makro derseniz aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:G240")) Is Nothing And Target.Cells.Count = 1 Then
    If Target.Column = 4 Or Target.Column = 6 Then Exit Sub
    Range(Target, Target.Offset(19)).Value = Target.Value
End If
End Sub

 

[askm]

Alternatif olsun.
Aşağıdaki kodları sayfanın kod bölümüne ekleyip deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:G240]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = Empty Then Exit Sub
Application.EnableEvents = False
askm = Target.Value
satir = Target.Row
For i = satir To satir + 19
    Cells(i, Target.Column) = askm
Next i
Application.EnableEvents = True
End Sub

 

[EKREM1661]

Arkadaşlar çok çok teşekkürler.. Ömer bey in kodu daha istediğim gibi oldu, çünkü 4 ve 6.sütünlar kapsam dışı tutulmuş..

Yalnız, uygulamada durumu izleyince.. Kod un etki alanı değişmeden, kod, sadece belirli satırlarda çalışsa çok daha iyi olacağını farkettim. Şöyleki, 3-24-45-66-87-119-140.. gibi 3 den sonra 21 in katlarına denk gelen satırlarda çalışmasını sağlayabilir miyiz.. Çünkü, tablo 21’erli gruplar halinde olduğu için sonraki gruplara sarkmaması lazım..

 

[ÖmerBey]

Merhaba,

[COLOR="Red"]If Target.Row Mod 21 = 3 Then [/COLOR]Range(Target, Target.Offset(19)).Value = Target.Value

 

[EKREM1661]

Ömer hocam, çok teşekkürler, elinize sağlık ve hayırlı bayramlar dileğiyle, hoşça kalınız..

B sütunu dışındaki diğer sütunlarda (C-E-G sütunları 3,24,45,66..satırlarda) yapılan doldurma 1+19 şeklinde değil de,
B sütununda (ilgili 20 satırlık grupta) bırakılan verilerin hizasına kadar doldursa kusursuz olmuş olacak..
Ancak sizi uğraştıracaksa gerek yok, bu kadarı da yeterli..