DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
eyvallahcok tesekkur ederim
![]()
ama pardon ya.. ben verdigim sutundaki karelerin her birinde yazdigimin %8 le carpilip cikmasini istiyorum.. yani toplami degil ayri ayri B1 100 yazdigimda 108 ciksin B2 de 200 yazdigimda 216 ciksin..mumkunmu acaba ?
isarican seni yoruyorum biliyorum ama acemiligime ver lutfen.. sonuca cok yaklastik
Sorumu soyle sormaliydim : bi hücreye yazdığım ayni hucreye +%0,08 seklinde ciksin![]()
bunun örnek çalışması olmaz ki
tekrarlıyorum işlem basamaklarını
1. Boş bir hücreye 1,08 yazın
2. bu hücreyi kopyalayın
3. yapıştırılacak hücreleri seçin
4. Özel yapıştırı seçin
5. Çarp seçeneğini seçin
6. Tamam
yada eger kullansak.. a1 deki rakam sifirdan buyukse 1.08 le carpsa otomatik ?
A sütununa yazsanız, B sütununa çarpımlı sonucu yazdırsanız olmuyor mu? Ya da buton yardımı ile yapsanız?
Sub Secilen_Hucreleri_Carp()
Dim Secilen_Hucreler As range
For Each Secilen_Hucreler In Selection
If IsNumeric(Secilen_Hucreler) = True And Secilen_Hucreler <> "" Then
Secilen_Hucreler = Secilen_Hucreler * 1.08
End If
Next Secilen_Hucreler
End Sub