buton ile fiyattan yüzde oranı kadar düşme

[sevensuleyman]

merhaba kolaty gelsin ;
excell dosyamda binlerce veri bulunmaktadır. bu excelime bi buton yardımı ile butona tıkladıgımda bir ekranın açılıp yüzde oranını (örnek %10,%20,%30) ekrana girdiğimde sütundaki fiyatlardan % kadar fiyattan düşmesini istiyorum. ondalık hanesi 2 rakam olmalı (10,22 gibi) yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Discount()
    Dim Discount As Variant, Column_Name As Variant, My_Cell As Range
    
    Discount = InputBox("Lütfen indirim oranını giriniz...", , 10)
    Column_Name = InputBox("Lütfen işlemi uygulamak istediğiniz sütun adını giriniz...", , "A")
    
    If Discount = "" Or Discount = False Then Exit Sub
    If Column_Name = "" Or Discount = False Then Exit Sub
    
    For Each My_Cell In Range(Column_Name & "2:" & Column_Name & Cells(Rows.Count, Column_Name).End(3).Row)
        If IsNumeric(My_Cell.Value) Then
            My_Cell.Value = My_Cell.Value * (1 - Discount / 100)
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[sevensuleyman]

çok teşekkür ederim ;
sütun seçiminide ekran ile bağlayabilirmiyiz. istediğimiz sütunu değiştirerek kullanabilelim. bütün veriler 2. satırdan başlamaktadır. 1. satırda başlıklar mevcuttur.

 

[Korhan Ayhan]

Kodu revize ettim. Deneyiniz.