random sayıya göre satırı bulmak

[gencoglu27]

Merhaba arkadaşlar,

A sütünunda 1-5000 arası satır numaraları var..
F9 a basarak 1-5000 arası RASTGELE bir sayı üretiyorum. Ve istiyorumki program beni ilgili satıra ve ona bağlı olan yan sütündaki içeriğe götürsün..

Yani C1 sütününda =(RASTGELEARADA(1;5000)) formülü ile sayı üreten bir kod var...F9 a her basışımda diyelimki 3255 sayıyı üretti..A1 sütününda 1 den 5000 e kadar sayılar var ve kendimi 3255 nolu satırda bulayım...

Teşekkürler

 

[leumruk]

Merhaba,
Bu isteğiniz makro ile yapılabilir. Makro çözüm isterseniz bir örnek dosya ekleyin.

 

[gencoglu27]

Merhaba,
Bu isteğiniz makro ile yapılabilir. Makro çözüm isterseniz bir örnek dosya ekleyin.

istediğiniz gibi dosya ekledim..
random sayı limitini 1-2000 olarak yeniledim

teşekkürler

 

[usubaykan]

istediğiniz gibi dosya ekledim..
random sayı limitini 1-2000 olarak yeniledim

teşekkürler

Merhaba;

Thisworkbook kısmına

Option Explicit

Private Sub Workbook_Activate()
Application.OnKey "{F10}", "BUL_HÜCRE"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F10}", ""
End Sub

Private Sub Workbook_Deactivate()
Application.OnKey "{F10}", ""
End Sub

Private Sub Workbook_Open()
Application.OnKey "{F10}", "BUL_HÜCRE"
End Sub

Module1 'e aşağıdaki kodu deneyiniz..

Option Explicit

Sub BUL_HÜCRE()
Dim Bul As Range
    Set Bul = Range("A:A").Find(What:=Range("D1"), LookAt:=xlWhole)
        If Not Bul Is Nothing Then
            Cells(Bul.Row, "B").Select
        End If
End Sub

Bence F10 ile deneyin F9' u manuel hesaplamalarda kullanabilirsiniz.

 

[gencoglu27]

değerli arkadaşım.. ofis 2007 kullanıyorum... bu makro yarat vs bulamadım.. mümkünse çalışan bir dosya gönderir misiniz..? teşekkür ederim

 

[usubaykan]

değerli arkadaşım.. ofis 2007 kullanıyorum... bu makro yarat vs bulamadım.. mümkünse çalışan bir dosya gönderir misiniz..? teşekkür ederim

Alt+F11 tuşuna basarak makro vba' ya ulaşabilirsiniz. Eki inceleyiniz.

 

[gencoglu27]

ekteki dosyada "type mismatch" uyarısı veriyor..

 

[leumruk]

Merhaba,
Ekli örnekte C1'e çift tıklarsanız ilgili satıra gider. D1'e çift tıklarsanız sayı üretir. Ayrıca F9 ile de sayı üretebilirsiniz.

 

[usubaykan]

ekteki dosyada "type mismatch" uyarısı veriyor..

2003 olduğundan olabilir. 2007 kullanmıyorum. O uyarıyı nasıl giderilir bilmiyorum isterseniz alt+f11 tuşlarına basarak makro bölümünü açın ve bir önceki mesajımda yazdığım yerlere kopyalayıp tekrar deneyin

 

[gencoglu27]

Macroyu nasıl etkinleştireceğim ? enable macro diyor

 

[usubaykan]

Macroyu nasıl etkinleştireceğim ? enable macro diyor

Merhaba;

Aşağıdaki linki inceler misiniz ? 2007 excel kullanımı hakkında bilgiler var sanırım işinize yarar. Güzel bir çalışma olmuş.

http://www.excel.web.tr/f42/excel-2003den-excel-2007ye-geci-yapanlara-t42574.html

 

[gencoglu27]

Tamam oldu... elinize sağlık