otomatik formül çoğaltma

[Mehmet Gündüzalp]

Merhaba, formül satırından göreceğiniz üzere, copy-paste yolu ile sağ tarafa veriler girmekteyim.
A sütununda ise B sütununda ki meyvelere sıra numarası vermekteyim.

Yalnız B sütununa yapıştıracağım verilerin sayısı her zaman değişiyor. Yani bazen 10 satır, bazen 50, bazen 1000 gibi

Böyle olunca her defasında A sütunuda ki formulleri aşağıya doğru çoğaltmak zorunda kalıyorum.

Bunun otomatik gerçekleşmesi mümkünmüdür? A sütunu B sütununun satır sayısı kadar nasıl aktif olur ?

 

[çıtır]

A3 hücresine kopyalayınız.Aşağı çekerek çoğaltınız.

=EĞER($B3="";"";EĞERSAY(veri!$B$3:B3;veri!B3)&veri!B3)

 

[Mehmet Gündüzalp]

Hocam merhaba, benim amacım ilk mesajımda belirttiğim gibi aşağı çekerek çoğaltmayı ortadan kaldırmak zaten.

Şöyle düşünün, B sütununa kaç adet veri girilirse, A sütununun da eşit şekilde artıp azalması gerekiyor.
Ve işin kötü yanı elimizde maximum bir satır sayısı verisi yok. Belki mümkün değil bu istediğim ama olursa inanılmaz işime yarayacak.

 

[çıtır]

İsteğinizin formülle yapılaçağını zannetmiyorum.Kodla olabilir diye düşünüyorum.

 

[çıtır]

Sayfanın kodu olarak kopyalarsanız isteğinizi karşılar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B1000]) Is Nothing Then Exit Sub
son = Cells(65336, "B").End(3).Row
Range("A3:A" & Cells(65336, "A").End(3).Row).ClearContents
For i = 3 To son
If Range("B" & i) <> "" Then
Range("A" & i).FormulaLocal = "=Eğersay(veri!B$3:B" & i & ";veri!B" & i & ")&veri! B" & i
End If
Next i
End Sub

 

[Mehmet Gündüzalp]

Sayfanın kodu olarak kopyalarsanız isteğinizi karşılar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B1000]) Is Nothing Then Exit Sub
son = Cells(65336, "B").End(3).Row
Range("A3:A" & Cells(65336, "A").End(3).Row).ClearContents
For i = 3 To son
If Range("B" & i) <> "" Then
Range("A" & i).FormulaLocal = "=Eğersay(veri!B$3:B" & i & ";veri!B" & i & ")&veri! B" & i
End If
Next i
End Sub

Merhaba Hocam, şu hatayı alıyorum , incelemenizi rica ederim.

 

[çıtır]

Dosyaya bakınız.Kodu Sayfa2(tablo)sayfasına kopyalayınız.tablo sekmesinde sağ tuş kod görüntüle ve kodu kopyalayınız.
http://dosya.co/8wxlrqufelby/fyaz.rar.html

 

[Merhum İdris SERDAR]

.

Table - Tablo'yu kullanabilirsiniz.

Örnek dosya ekleyin. Örnek vereyim.

.

 

[Ali]

Şöyle düşünün, B sütununa kaç adet veri girilirse, A sütununun da eşit şekilde artıp azalması gerekiyor.
Ve işin kötü yanı elimizde maximum bir satır sayısı verisi yok. Belki mümkün değil bu istediğim ama olursa inanılmaz işime yarayacak.

Dinamik alanlı tablo denediniz mi. İlgili alanı seçip CTRL+L yapıp bir inceleyin.

 

[Mehmet Gündüzalp]

.

Table - Tablo'yu kullanabilirsiniz.

Örnek dosya ekleyin. Örnek vereyim.

.

Merhaba Hocam, ekledim dosyayı.
http://dosya.co/jxspupe82kbf/Veri_Analiz_forum.xlsm.html

Dinamik alanlı tablo denediniz mi. İlgili alanı seçip CTRL+L yapıp bir inceleyin.

Hocam bahsettiğiniz yöntemi bilmediğimden denememiştim, internetten bakıcam şimdi .

 

[Merhum İdris SERDAR]

.

Burada örnek var.

http://www.excelgurusu.com/table-tablo/


.