Çıkarma işlemi

[mrc83]

Arkadaşlar sayın moderatörler, forumda bu konuyu aradım ama hep makro ile yada değişik formda verilerle karşılaştım. Dosyayı ekledim, normal olarak tek tek çıkarma işlemi girmek yerine tüm sutünda bunu koşullu olarak yapan formül nedir onu öğrenmek istiyorum. saygılarımla

 

[Korhan Ayhan]

Selamlar,

Ben dosyanızı açtım fakat hiçbirşey anlamadım. Nereyi nereden çıkarmak istediğinizi çözemedim. Sorularınızı sorarken lütfen örneklendirin. Daha sonrada neden kimse cevap vermiyor diyerek serzenişler oluyor. Umarım anlayışla karşılarsınız.

 

[mrc83]

Tamam açıklayayım. Korhan bey,
İzin Miktarından kullanılan izin miktarını çıkarıp hemen altına yazmak istiyorum. Orada misal E4 e bakın 30 yazıyor F4 te ise 10 yazıyor, ben E5 ' e bunun farkını yazmak istiyorum, basit olarak =(E4-F4) şeklinde. İşte ben bunu tek tek elle yazmak değilde tüm sutün için yapmak istiyorum. Anlatabildim umarım...

 

[Tarkan VURAL]

e5:e8 aralığını kopyalayıp e10:e13 aralığına yapıştırın sonra diğerleri için de aynısını yapın. Makrolu çözüm mü istemiştiniz yoksa ?

 

[mrc83]

Makrolu olanı merak ediyorum Tarkan Bey .. Nasıl olduğunu..

 

[Tarkan VURAL]

Peki o zaman şu kodları deneyebilirsiniz....

Sub hesapla()
'Tarkan VURAL
Dim i As Long, a As Long
With Sayfa1
i = [f65536].End(3).Row
    For a = 1 To i
        If Not IsEmpty(.Cells(a, 6)) And IsNumeric(.Cells(a, 6)) Then
            .Cells(a + 1, 5).Value = Val(.Cells(a, 5).Value) - Val(.Cells(a, 6).Value)
        End If
    Next a
End With
End Sub

 

[mrc83]

Son bir soru daha sorup rahatsızlık vermeyi keseceğim.. Bu kodları kaydedecek yeri bir türlü bulamadım office 2007 de ? Eksik mi yükledim acaba makro namına birşeyle karşılaşmadım. ?

 

[mrc83]

Acaba cevap yokmu ?

 

[BG]

Sayın mrc83

Son bir soru daha sorup rahatsızlık vermeyi keseceğim.. Bu kodları kaydedecek yeri bir türlü bulamadım office 2007 de ? Eksik mi yükledim acaba makro namına birşeyle karşılaşmadım. ?

Makroyu bir butona tıklayarak çalıştırmayı planladığınızı düşünerek, aşağıdaki işlem adımlarını takip ediniz.

1- Office Butona tıklayın, "Excel seçenekleri" / "Popüler" bölümündeki "Şeritte geliştiriciyi sekmesini göster" seçeneğini işaretleyin ve "Tamam" butonuna tıklayın.

2- "Görünüm" sekmesinin hemen yanında "Geliştirici" sekmesinin oluştuğunu göreceksiniz

3- "Denetimler" Bölümündeki "Ekle" butona tıklayarak "Activex Denetimleri" bölümünden butona tıklayın ve ekranda buton olşuturun

4- butona çift tıklayın VBA penceresi karşınıza çıkacaktır, Sayın Tarkan VURAL'ın gönderdiği kodları bu alana yapıştırın.

5- işlem bittiğinde kodlarınız aşağıdaki gibi olacaktır. İyi çalışmalar dilerim.

Kod:
Private Sub CommandButton1_Click()
Dim i As Long, a As Long
With Sayfa1
i = [f65536].End(3).Row
For a = 1 To i
If Not IsEmpty(.Cells(a, 6)) And IsNumeric(.Cells(a, 6)) Then
.Cells(a + 1, 5).Value = Val(.Cells(a, 5).Value) - Val(.Cells(a, 6).Value)
End If
Next a
End With
End Sub