boş satırları baz alarak formül yapabilme

[ozkbilgi]

aklaşık 6300 satırlık bir formül yapmam gerekiyor ancak bu formüller belirli satırda değil değişken benim yapmak istediğim üst taraftaki boş satırları baz alark yantarafındaki kolondaki değierle çarpıp bir alttaki boş satıra kadar kopyalayacak ekte dosya gönderdim üst taraftaki satırlar ve yantaraftaki sütünlar sabit olacak

şimdiden teşekkür ederim kolaygelsin

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Veri sayısı çok fazla olduğu için kodun işlemini bitirmesi uzun zaman alabilir.

[vb:1:48961c7942]Sub hesapla()
For a = 2 To [e65536].End(xlUp).Row
If Cells(a, 4) = 0 Then
sat = Cells(a, 4).Row
GoTo 10
End If
For b = 6 To 10
Cells(a, b) = Cells(sat, b).Value * Cells(a, 5).Value
Next
10 Next
End Sub[/vb:1:48961c7942]

 

[ozkbilgi]

formül uygulanacak satırların tamamını sıfır bastı ve herhangi bir formül yok

 

[veyselemre]

sayın leventm nin formülünde aşağıdaki düzenlemeri yapın
Cells(a, b).Formula = "=" & Cells(sat, b).Address & "*" & Cells(a, 5).Address

 

[ozkbilgi]

ÇOK TEÞEKKÜR EDERİM HEPİNİZE BENİ BÜYÜK BİR UÐRAÞTAN KURTARDINIZ

KOLAY GELSİN,

 

[Levent Menteşoğlu]

Benim verdiğim kodda; formül yerine kod kendi içinde hesaplamaları yapıp sonucunu yazmaktadır. Eğer formül yazdırırsanız dosya büyüklüğünüz çok artacak ve dosyanız açılamayacak hale gelecektir. Boş olan bölümlere sayı yazarak kodu deneyin.

 

[ozkbilgi]

ARKADAÞLAR "ETOPLA" FORMÜLÜ YERİNE AYNI FONKSİYONLARA SAHİP ANCAK DEÐİÞİK .XLS SAYFALARI AÇIK OLMADAN VERİLERİ ALIP GÜNCELLEME YAPABİLECEK BAÞKA BİR FORMÜL VARMI ACABA VARSA NASIL KULLANABİLİRİM :? :? :yardim: :yardim: :? :?

 

[zafer]

Merhaba

topla.çarpım fonksiyonunu inceleyiniz.