otomatik olarak hücrelere formül girilmesi

[asbaskan]

Bir stok kontrol buna bağlı olarak hammade kontrol ve sevkiyat ( satılan malın ) miktarları ve durumunu gösteren bir program hazırladım yanlız üretim ve satılan malları girdikce formüller cıkması gerek ( formulleri genişlet işe yaramıyor ) dosyada cok büyük buraya atılamayacak kadar formuller a1 a2 .... bilgi girilince o satıra girilsin gibi...

 

[danersin]

Yanlış anladıysam kusura bakmayın.
A ve B sütununda rakamlar olduğunu ve C sütununu =A+B varsayarsak
Böyle bir formülü tüm C sütununa yazıp, A veya B boş iken hücrenin boş , ikiside dolu iken toplamı yazması işinizi görebilir.
=EÐER(YADA(A1="";B1="")=DOÐRU;"";A1+B1)

Yada aynı mantığı kodlar ile aşağıdaki gibi yapmak mümkün.

[vb:1:d58e8d737b]
Private Sub Worksheet_Change(ByVal Target As Range)
Sut1 = Cells(65536, 1).End(xlUp).Row
Sut2 = Cells(65536, 2).End(xlUp).Row
sut3 = Cells(65536, 3).End(xlUp).Row
If Sut1 = Sut2 And sut3 < Sut1 Then
Cells(sut3 + 1, 3).Formula = "=a" & sut3 + 1 & "+b" & sut3 + 1
End If
End Sub[/vb:1:d58e8d737b]

 

[asbaskan]

çok fazla miktarda formül var ve hepsini alt alta yaptıgım zaman 500 satır dan fazla formul yazıyorum ve dosya kabarıyor satır boş iken formül yazmasın gerekli şeyleri yazınca formul otomatik girsin.

 

[Tarkan VURAL]

Selam ;

Sanırım Sayın danersin'in tarif ettiği kodları denemediniz.

 

[arslan]

Arkadaşlar sayfadaki yazılmış olan formülleri Makro ile Kaydet butonuna basınca yazdırmak mümkünmü acaba.
Dosya ekte

 

[Tarkan VURAL]

Selam;

en kısa çözüm sanırım next i kısmından sonra

With Range("c65536")
        .End(xlUp)(1, 9).FillDown
        .End(xlUp)(1, 10).FillDown
        .End(xlUp)(1, 11).FillDown
    End With

Kolay gelsin

 

[arslan]

Haklısınız en kısa sekil bu herhalde . Problemim çözüldü
Teşekkür ediyorum