%15 eklenmesi

[yuzun23]

ekteki excel tablosunda belirttiğim gibi Hücreleri sarı olarak işaretlediğimde o satırdaki sarı olmayan fiyatlara otomatik %15 eklenmesi
Makro kullanmadan

 

[Necdet]

Merhaba,
Bir hücreye 1,15 yazın, o hücreyi kopyalayın
yapıştıracağınız hücreleri seçin, Özel Yapıştır, ÇARP, Tamam

 

[yuzun23]

Üstadım yüzlerce sayfa

 

[yuzun23]

örnek olarak yardımlarınızı bekliyorum. Allah'a amenet olun

 

[Necdet]

Merhaba,
Valla hem makro kullanmadan diyorsunuz, hem de yüzlerce sayfadan söz ediyorsunuz.
İsteğiniz makronun dışında olası değil.

 

[yuzun23]

kusura bakmayın macrodan anlamadığım için, tamam eklemeniz mümkün mü.

 

[Korhan Ayhan]

Dosyanızda ThisWorkbook bölümüne aşağıdaki kodu uygulayınız.

İlgili satırda renklendirme işleminiz bitince B sütunundaki MALZEME ADI bölümüne çift tıkladığınızda yüzde artışlar olacaktır.
Aynı hücrede ikinci kez çift tıklama kontrolü için M sütununa nokta eklenmektedir. Bu hücrede bulunan noktayı silerseniz tekrarlı yüzde işlemi uygulayabilirsiniz.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim Rng As Range, No As Integer
   
    If Intersect(Target, Range("B5:B" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
       
    If Cells(Target.Row, "M") = "." Then
        MsgBox "Bu satıra daha önce yüzde işlemi uygulanmıştır.", vbCritical
        Exit Sub
    End If
   
    For Each Rng In Range("C" & Target.Row).Resize(, 10)
        If Rng.Interior.ColorIndex <> 6 Then
            If IsNumeric(Rng) Then
                If Cells(Rng.Row, "M") = "" Then
                    No = No + 1
                    Rng = Rng * 1.15
                End If
            End If
        End If
    Next
   
    If No > 0 Then Cells(Target.Row, "M") = "."
End Sub

 

[yuzun23]

ThisWorkbook nasıl yapacam nasıl ekleyecem

 

[Korhan Ayhan]

Görseldeki yere çift tıklayın sağ tarafta beyaz pencere açılacaktır. Oraya önerdiğim kodu uygulayınız.

 

[yuzun23]

teşekkürler

Ekli dosyayı görüntüle 244397
[/QUOTE]

 

[Merhum İdris SERDAR]

.

Alternatif.

.

 

[yuzun23]

Teşekkür ederim ellerine sağlık