Seçtiğim hücredeki sayıyı bölme nası yapılır ?

reccep37

Altın Üye
Katılım
24 Haziran 2018
Mesajlar
7
Excel Vers. ve Dili
Excel 2123
arkadaşlar, ekteki dosyada 1'den 15'a kadar sayılar var mesela. örneğin ben 5 numaradaki sayıyı seçtim diyelim karşılığı 1000 oluyor. yani ben tabloda 1000 yazılı olan ve karşılığı 5 tek bulunan sayıya tıklayınca bu 1000 i bana 5 e bölebilir mi ve ayrı ayrı alt alta yada yan yana yazabılır mı.


1 | 200
2 | 400
3 | 600
4 | 800
5 | 1000


1000 olana tıklayınca




200
200
200
200
200




5 e tıklayıncabelli bi yere atmasını istiyorum aynı bu şekilde ve ben bunu değiştirdikçe mesela daha sonra 4 numaralı olana basınca bana 800 ü 4e bölüp alt alta ya da yan yana gösterecek




böyle birşey yapabilirmiyim acaba
 

Ekli dosyalar

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
27,566
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Bu işlem sanki makro ile olabilir gibi duruyor.

Siz hangi alana tıklayınca bu işlem yapılacak?
 

reccep37

Altın Üye
Katılım
24 Haziran 2018
Mesajlar
7
Excel Vers. ve Dili
Excel 2123
efendim fark etmes. ister 1 den 10 a kadar olan bölüme tıklayınca yada 1 den 10'a kadar olan bölümün karşılarına denk gelen 200 ve katları olan sayılara tıklayınca.

1 | 200
2 | 400
3 | 600
4 | 800
5 | 1000
6 | 1200
7 | 1400
8 | 1600
9 | 1800
10 | 2000



mesela 8 e böleceksem 8 e de tıklasam olur karşısındaki 1600 e de tıklasam olur. ama bana sürekli baştakilere bölecek.

1600 e tıklarsam 8 e bölecek ve alt alta farklı bir bölüme aynen şu şekilde çıkaracak. başka birini seçince yine bu çıkanlar kaybolup yeni bölünenler listelenecek

200
200
200
200
200
200
200
200
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
27,566
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Sayfa ismi üzerinde sağ tıklayın.
Açılan menüden KOD GÖRÜNTÜLE seçeneğini seçin.

Karşınıza gelen beyaz pencereye aşağıdaki kodu uygulayın.

"B" sütunundaki değerlere tıkladığınızda sonuca uulaşacaksınız.

Son olarak dosyanızı makro içerebilen excel dosyası biçiminde kaydetmeyi unutmayın.

C++:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("N3:O17").ClearContents
    If Intersect(Target, Range("B3:B17")) Is Nothing Then Exit Sub
    Range("N3").Resize(Target.Offset(0, -1)) = Target / Target.Offset(0, -1)
End Sub
 

recepkull

Altın Üye
Katılım
14 Kasım 2017
Mesajlar
514
Excel Vers. ve Dili
2010 Türkçe
Alternatif

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a3:a17")) Is Nothing Then Exit Sub
R = ActiveCell.Row
D = ActiveCell.Offset
For An = 1 To D
Cells(R, An + 2).Value = Cells(R, 2) / Cells(R, 1)
Next An
End Sub
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
9,471
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Alternatif sayfa kodu:

PHP:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A3:B17")) Is Nothing Then Exit Sub
    If Selection.Count > 1 Then Exit Sub
    eski = WorksheetFunction.Max(Cells(Rows.Count, "N").End(3).Row, 3)
    a = Target.Row
    If IsNumeric(Target) = False Then Exit Sub
    If Cells(a, "A") <> Round(Cells(a, "A"), 0) Then Exit Sub
    Range("N3:O" & eski).ClearContents
    For i = 3 To Cells(a, "A") + 2
        Cells(i, "N") = Cells(a, "B") / Cells(a, "A")
    Next
End Sub
 
Üst