Düşeyara ile alınan hücreler ve hesaplamalarına ait makro ihtiyacı

[1Al2Ver]

Merhaba,

Düşeyara ile alınıp işleme tabi tutulan hücrelerin, bu hesaplamalarını butona bağlanmamış makro ile yapmasını istiyorum,

Teşekkür ederim.

 

[Korhan Ayhan]

Butonsuz bilgi alışverişi için sayfa olayları kullanılabilir.

Siz hangi durumda hesaplama yapılmasını istiyorsunuz?

 

[1Al2Ver]

Butonsuz bilgi alışverişi için sayfa olayları kullanılabilir.

Siz hangi durumda hesaplama yapılmasını istiyorsunuz?

Sayın Korhan Ayhan, merhaba,

Teşekkür ederim,Dosya açıldığında, stok hareketi olduğunda, vb. olabilir.

 

[Ömer BARAN]

Merhaba.

Sayın AYHAN'ın müsadeleriyle, hazırlamıştım boşa gitmesin.
Sayın AYHAN mutlaka daha pratik bir şey hazırlayacaktır. Benimkisi de en azından alternatif olur.

Aşağıdaki kod'u REÇETE sayfasının kod bölümüne uygulayın.
Kod, REÇETE sayfası aktive olduğunda otomatik çalışır.
H, J, K ve L sütunları sayfa her aktive olduğunda silinip yeniden doldurulur.
STOK sayfasında ve VERİLER sayfasında olmayan malzemeler için boş geçilir.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Activate()
Set st = Sheets("STOK"): Set ve = Sheets("VERİLER")
    Range("H2:H65536").ClearContents: Range("J2:L65536").ClearContents
        For brn = 2 To [C65536].End(3).Row
            If WorksheetFunction.CountIf(st.Range("B:B"), Cells(brn, "C")) > 0 Then
                Cells(brn, "H") = st.Cells(WorksheetFunction.Match(Cells(brn, "C"), st.Range("B:B"), 0), "N")
                    End If
                        If WorksheetFunction.CountIf(ve.Range("B:B"), Cells(brn, "C")) > 0 Then
                            If Cells(brn, 4) = "Gr" Then
                                bölü = 1000
                                    Else
                                    bölü = 1
                                End If
                            Cells(brn, "J") = ve.Cells(WorksheetFunction.Match(Cells(brn, "C"), _
                        ve.Range("B:B"), 0), "C") * Cells(brn, "E") / bölü
                    Cells(brn, "K") = ve.Cells(WorksheetFunction.Match(Cells(brn, "C"), _
                ve.Range("B:B"), 0), "C") * Cells(brn, "F") / bölü
            Cells(brn, "L") = ve.Cells(WorksheetFunction.Match(Cells(brn, "C"), _
        ve.Range("B:B"), 0), "C") * Cells(brn, "G") / bölü
    End If
Next
End Sub[/FONT]

 

[1Al2Ver]

Sayın Ömer Baran merhaba,

İlginiz ve çözüm için teşekkür ederim.

Saygılarımla.

 

[Ömer BARAN]

Estağfurullah, iyi günler dilerim.
Belgeyi herşeyiyle tamamladığınızda, bitmiş halini görmek isterim doğrusu.