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

[reccep37]

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

 

[Korhan Ayhan]

Bu işlem sanki makro ile olabilir gibi duruyor.

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

 

[reccep37]

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]

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.

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]

Alternatif

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

 

[YUSUF44]

Alternatif sayfa kodu:

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