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: 77
Excel Vers. ve Dili:
Excel 2010
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,673
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: 77
Excel Vers. ve Dili:
Excel 2010
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,673
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: 77
Excel Vers. ve Dili:
Excel 2010
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: 958
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 Çevrimdışı   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: 77
Excel Vers. ve Dili:
Excel 2010
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,673
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: 77
Excel Vers. ve Dili:
Excel 2010
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: 77
Excel Vers. ve Dili:
Excel 2010
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 05:44


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - invest in turkey - Hurda - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Baskı- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden