Formülü Sıraya göre otomatik etkinleştirme

[mertmustafa01]

Merhaba Değerli Arkadaşlarım,

=EĞERHATA(DÜŞEYARA(C160;'C:\Users\ziyas\OneDrive\Masaüstü\[ÜRETİM TABLO ŞENOL.XLSX]VERİ'!$A:$B;2;0);"")

bu formül sırası ile aşağıya doğru uzayıp gidecek tüm hücrelere kopyala yapıştır yaptığım zaman excel ağırlaşıyor

mesela boş olan hücreye girdikten sonra bir sonrakine kendisi otomatik yazsa daha iyi olur yapabilirmiyiz.

 

[volki_112]

Merhaba Değerli Arkadaşlarım,

=EĞERHATA(DÜŞEYARA(C160;'C:\Users\ziyas\OneDrive\Masaüstü\[ÜRETİM TABLO ŞENOL.XLSX]VERİ'!$A:$B;2;0);"")

bu formül sırası ile aşağıya doğru uzayıp gidecek tüm hücrelere kopyala yapıştır yaptığım zaman excel ağırlaşıyor

mesela boş olan hücreye girdikten sonra bir sonrakine kendisi otomatik yazsa daha iyi olur yapabilirmiyiz.

hücrenin üzerindeyken sağ altta artı simgesi çıkar onu aşağıya doğru istediğiniz hücreye kadar çekiniz. böylece formülünüz aşağıdaki hücrelere de uygulanmış olur.

 

[mertmustafa01]

hücrenin üzerindeyken sağ altta artı simgesi çıkar onu aşağıya doğru istediğiniz hücreye kadar çekiniz. böylece formülünüz aşağıdaki hücrelere de uygulanmış olur.

üstad onu yapıyorum sayfamda formülleri gizledim aşağıya doğru formül gözükmesin diye ama sayfa ağırlaşıyor 150000 e kadar koya olunca
yani bir satırı yazıp bitirince alt satıra yazacak bir formül arayışı içindeyim

 

[pitchoute]

Merhaba, makro işinize yarar mı? Yararsa eğer;

Sub FormulDoldur()
    Dim i As Long
    Dim sonSatir As Long
    
    sonSatir = Cells(Rows.Count, "C").End(xlUp).Row
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    For i = 160 To sonSatir
        Cells(i, "D").Formula = "=EĞERHATA(DÜŞEYARA(C" & i & ";'C:\Users\ziyas\OneDrive\Masaüstü\[ÜRETİM TABLO ŞENOL.XLSX]VERİ'!$A$1:$B$1000;2;0;"""")"
        If i Mod 100 = 0 Then
            Application.Calculate
        End If
    Next i
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

 

[mertmustafa01]

Merhaba, makro işinize yarar mı? Yararsa eğer;

Sub FormulDoldur()
    Dim i As Long
    Dim sonSatir As Long
   
    sonSatir = Cells(Rows.Count, "C").End(xlUp).Row
   
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
   
    For i = 160 To sonSatir
        Cells(i, "D").Formula = "=EĞERHATA(DÜŞEYARA(C" & i & ";'C:\Users\ziyas\OneDrive\Masaüstü\[ÜRETİM TABLO ŞENOL.XLSX]VERİ'!$A$1:$B$1000;2;0;"""")"
        If i Mod 100 = 0 Then
            Application.Calculate
        End If
    Next i
   
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

Değerli Hocam Çalışmamı atsam bir kaç formül var çünkü yardımcı olurmusunuz

 

[mertmustafa01]

tablom bu şekilde

A10 sütununda
D10 sütununda
H10 sütununda
I10 sütünunda

Çok teşekkür ederim şimdiden

 

[necati]

Merhaba Değerli Arkadaşlarım,
=EĞERHATA(DÜŞEYARA(C160;'C:\Users\ziyas\OneDrive\Masaüstü\[ÜRETİM TABLO ŞENOL.XLSX]VERİ'!$A:$B;2;0);"")
bu formül sırası ile aşağıya doğru uzayıp gidecek tüm hücrelere kopyala yapıştır yaptığım zaman excel ağırlaşıyor
mesela boş olan hücreye girdikten sonra bir sonrakine kendisi otomatik yazsa daha iyi olur yapabilirmiyiz.

Merhaba,
Alternatif çözüm olarak "Adlandırılmış Tablo" özelliklerinden faydalanabilirsiniz.
Tablonuzu "Tablo Ekle" ile "Adlandırılmış Tablo" haline dönüştürürseniz, satır ekledikçe formüller o satıra otomatik olarak gelir.

 

[mertmustafa01]

Merhaba,
Alternatif çözüm olarak "Adlandırılmış Tablo" özelliklerinden faydalanabilirsiniz.
Tablonuzu "Tablo Ekle" ile "Adlandırılmış Tablo" haline dönüştürürseniz, satır ekledikçe formüller o satıra otomatik olarak gelir.

Size zahmet örnek sayfamda bir yaparmısın nasıl olacak

 

[necati]

Aslında bu işlem için örnek dosyaya gerek yok. Ama yinede küçük bir örnek harici link olarak ekliyorum. Sayfa1 den Sayfa2'ye düşeyara ile veri çekiliyor. Satırdaki formül otomatikman geliyor.
Örnek linki

 

[mertmustafa01]

Aslında bu işlem için örnek dosyaya gerek yok. Ama yinede küçük bir örnek harici link olarak ekliyorum. Sayfa1 den Sayfa2'ye düşeyara ile veri çekiliyor. Satırdaki formül otomatikman geliyor.
Örnek linki

teşekkürler emeğinize sağlık

 

[necati]

Rica ederim.