Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 13-03-2017, 09:48   #1
Cihan SK
Altın Üye
 
Giriş: 20/01/2017
Şehir: Antalya,Muratpaşa
Mesaj: 85
Excel Vers. ve Dili:
Microsoft Excel 2013
Varsayılan Köprüyü otomatik yapmak.

Arkadaşlar,

Mevcut dosyamda bulunan köprüyü ("git") otomatik hale getirmek mümkün mü
değiştir butonuna bastığımda otomatik ilgili satıra gitmesini istiyorum.

Yardımcı olan arkadaşlara şimdiden çok teşekkürler
Eklenmiş Dosyalar
Dosya Türü: xlsx İNGİLİZCE KELİME ÇALIŞMASI.xlsx (281.1 KB, 21 Görüntülenme)
Cihan SK Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-03-2017, 09:52   #2
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,872
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Bu şekilde deneyin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Sayac()
    
    Dim s As Long
    
    If WorksheetFunction.CountIf([A:A], [K1]) = 0 Then
        MsgBox "Veriyi Bulamadım"
        Exit Sub
    End If
    
    s = WorksheetFunction.Match([K1], [A:A], 0)
    
    Cells(s, "B").Select
    
End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-03-2017, 09:56   #3
Cihan SK
Altın Üye
 
Giriş: 20/01/2017
Şehir: Antalya,Muratpaşa
Mesaj: 85
Excel Vers. ve Dili:
Microsoft Excel 2013
Varsayılan

Ömer bey,
Siz harikasınız.


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Sayac1()
[K1] = Int((90 * Rnd) + 1)
    Dim s As Long
    
    s = WorksheetFunction.Match([K1], [A:A], 0)
    
    Cells(s, "B").Select
    
End Sub
Cihan SK Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-03-2017, 09:58   #4
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,872
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
   If WorksheetFunction.CountIf([A:A], [K1]) = 0 Then
        MsgBox "Veriyi Bulamadım"
        Exit Sub
    End If
İlavesini yapmıştım. Eklemenizde fayda var.

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-03-2017, 10:00   #5
Cihan SK
Altın Üye
 
Giriş: 20/01/2017
Şehir: Antalya,Muratpaşa
Mesaj: 85
Excel Vers. ve Dili:
Microsoft Excel 2013
Varsayılan

Alıntı:
Ömer tarafından gönderildi Mesajı Görüntüle
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
   If WorksheetFunction.CountIf([A:A], [K1]) = 0 Then
        MsgBox "Veriyi Bulamadım"
        Exit Sub
    End If
İlavesini yapmıştım. Eklemenizde fayda var.

.

Çok teşekkürler
Cihan SK Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-03-2017, 10:05   #6
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,465
Excel Vers. ve Dili:
2010-2016
Varsayılan

Kod kısmına aşağıdaki kodları ekleyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Option Explicit

Sub ASKM_Bul()
Dim Sayfa As Worksheet, Aranan_Veri As Variant
Dim Bul As Range, Adres As String
Aranan_Veri = Range("I1")

For Each Sayfa In Worksheets
Set Bul = Sayfa.Range("B:B").Find(Aranan_Veri, LookAt:=xlWhole)
If Not Bul Is Nothing Then
    Adres = Bul.Address
    Sayfa.Range(Adres).Select
End If
Next
End Sub
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 18-03-2017, 09:59   #7
Cihan SK
Altın Üye
 
Giriş: 20/01/2017
Şehir: Antalya,Muratpaşa
Mesaj: 85
Excel Vers. ve Dili:
Microsoft Excel 2013
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
[K1] = Int((90 * Rnd) + 1)
1 - 90 arasındaki rakamları karışık tekrarlıyor. Ancak ben benim belirlediğim alan örneğin: 20 ila 30 veya 150 - 170 ya da 1000 ila 1050 arasındaki rakamları " Hepsi tekrar etmeden " atıyorum 10 rakamın tamamı tekrar etmeden yenisine geçmemesi için ne yapmalıyım. hepsinde 1 tekrar yapacak sonra yine baştan karışık bu şekilde tekrarlama yapmaya çalışıyorum. Sitede ve internet ortamında aradım. çok fazla bilgi kirliliği var.

Bu mesaj en son " 18-03-2017 " tarihinde saat 10:02 itibariyle Cihan SK tarafından düzenlenmiştir.... Neden: Randombetween
Cihan SK Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-03-2017, 21:42   #8
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,872
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Linki incelemenizi tavsiye ederim. Konu detaylı bir şekilde işlenmiş.

http://www.excel.web.tr/f142/rastgel...me-t58558.html

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 08:23   #9
Cihan SK
Altın Üye
 
Giriş: 20/01/2017
Şehir: Antalya,Muratpaşa
Mesaj: 85
Excel Vers. ve Dili:
Microsoft Excel 2013
Varsayılan

Sorduğum soruyu askm arkadaşımızın kodu ile birleştirdim çalışıyor. Teşekkürler Askm ve Ömer Bey.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub xxx()
[E2] = Evaluate("=RANDBETWEEN(1,100)")
Dim Sayfa As Worksheet, Aranan_Veri As Variant
Dim Bul As Range, Adres As String
Aranan_Veri = Range("C2")

For Each Sayfa In Worksheets
Set Bul = Sayfa.Range("B:B").Find(Aranan_Veri, LookAt:=xlWhole)
If Not Bul Is Nothing Then
    Adres = Bul.Address
    Sayfa.Range(Adres).Select
End If
Next
End Sub
Cihan SK Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 08:29   #10
Cihan SK
Altın Üye
 
Giriş: 20/01/2017
Şehir: Antalya,Muratpaşa
Mesaj: 85
Excel Vers. ve Dili:
Microsoft Excel 2013
Varsayılan

Son olarak tekrarsız sayı nasıl yapacağım. mesela 1,10 arasını seçiyorum. 20 kere butona bastığımda 1 hücre 5 tekrar yapmış 1 tanesi hiç tekrar yapmamış.

yani şöyle olursa 1,10 karışık getirsin ama 1,10 en az 1 tekrar olmadıkça 2'inci tekrara başlamamalı

Bende araştırıyorum. Yardımcı olacak tüm arkadaşlara teşekkür ediyorum.
Cihan SK Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 13:17


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden