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 22-06-2017, 03:58   #1
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 793
Excel Vers. ve Dili:
2007, 32
Varsayılan Listbox'tan Rastgele Seçilecek 10 Veriyi, 10 Userforma Rastgele Çağırmak

Arkadaşlar,

Halit Hoca'nın verdiği bir kod ile Userform3'e rastgele bir veriyi butonla çağırabiliyorum. Ben bu işlemi aynı butonla, sırayla 3'ten 12'ye kadar olan aynı formattaki (aynı nesneleri içeriyor ve nesne isimleri aynı) userformlara çağırmak istiyorum. Bir döngü oluşturmak gerekiyor ama beceremedim.

Yardımcı olabilir misiniz? Örnek dosya ektedir.



Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()

Set s1 = Worksheets("sayfa1")
sayi = UserForm4.ListBox1.ListCount

ReDim sayilar(sayi)
Dim Satir As Integer
For j = 1 To sayi
atla:
Randomize
Satir = Int((Rnd * sayi) + 1)
For m = 1 To sayi
If Satir = sayilar(m) Then
GoTo atla
End If
Next
sayilar(j) = Satir
'Cells(j, 3).Value = Satir
Next

a = sayilar(1) + 1


Adres = Worksheets("sayfa1").Cells(a, 1).Address
Dim Picture As Object
For Each Picture In s1.Shapes

If TypeName(s1.Shapes(Picture.Name).OLEFormat.Object) = "Picture" Then
yer = s1.Cells(Picture.BottomRightCell.Row, Picture.BottomRightCell.Column).Address

If yer = Adres Then

sut = Picture.BottomRightCell.Row

s1.Shapes(Picture.Name).Select
s1.Shapes(Picture.Name).CopyPicture

UserForm3.Image1.Picture = PastePicture
UserForm3.Label1.Caption = Cells(sut, "b")
UserForm3.Label2.Caption = Cells(sut, "c")
UserForm3.Label3.Caption = Cells(sut, "d")
UserForm3.Label4.Caption = Cells(sut, "e")
UserForm3.Label5.Caption = Cells(sut, "f")
UserForm3.Label6.Caption = Cells(sut, "g")
UserForm3.TextBox1.Text = Cells(sut, "h")

Exit For
End If
End If

Next Picture

UserForm3.Show



End Sub
Eklenmiş Dosyalar
Dosya Türü: xlsm sayfadaki_resmi-userforma-aktarma.xlsm (51.8 KB, 7 Görüntülenme)
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal

Bu mesaj en son " 22-06-2017 " tarihinde saat 04:20 itibariyle BedriA tarafından düzenlenmiştir.... Neden: Dosya Eklendi!
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-06-2017, 10:50   #2
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,473
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

böyle birşeymi istiyordunuz.

not. sayfadaki resimler mutlaka hücrenin içinde olacak başka hücrelere taşmayacak ayrıca sayfada resimlerin ebat ölçüleri fark etmez nasıl olsa userforma çağrılıyor.
Eklenmiş Dosyalar
Dosya Türü: rar sayfadaki_resmi-userforma-aktarma2.rar (53.7 KB, 11 Görüntülenme)
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-06-2017, 15:35   #3
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 793
Excel Vers. ve Dili:
2007, 32
Varsayılan

Alıntı:
halit3 tarafından gönderildi Mesajı Görüntüle
böyle birşeymi istiyordunuz.

not. sayfadaki resimler mutlaka hücrenin içinde olacak başka hücrelere taşmayacak ayrıca sayfada resimlerin ebat ölçüleri fark etmez nasıl olsa userforma çağrılıyor.
Halit Hocam,

İstediğim 10 farklı veriyi, 10 farklı userforma çağırmak... Örnek dosyada 2 tane userform var ve ikisine de bazen aynı veri geliyor, bazen de farklı... Bunun dışında tam istediğim gibi...

Çok teşekkür ederim.
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal

Bu mesaj en son " 22-06-2017 " tarihinde saat 15:37 itibariyle BedriA tarafından düzenlenmiştir.... Neden: Ekleme
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 01:35   #4
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 793
Excel Vers. ve Dili:
2007, 32
Varsayılan

Halit Hocam,

Bazen aynı veriyi birkaç userforma, bazen de bazı userformlara veri getirmeme sorunu var.
Örneğin 5 userform için 5 farklı veriyi rastgele seçtirip çağırmak mümkün değil mi?

İlginiz için tekrar teşekkür ederim.
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 07:30   #5
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 793
Excel Vers. ve Dili:
2007, 32
Varsayılan Peş Peşe Kurala Göre Yazdırma Makrosu

....................

Bu mesaj en son " 23-06-2017 " tarihinde saat 07:32 itibariyle BedriA tarafından düzenlenmiştir.... Neden: Ekleme
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 08:31   #6
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,473
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Şimdi şunu söylüyorum yazı dili ile yazdığınız mesajlardan bazen ne yapmak istediğiniz anlaşılmıyor örnek dosyanız ile mesajlarınız uyumlu olsun 10 tane userform diyorsunuz 2 tane userform var dosyanızda bu kadar çok userformların aynı işlevi yapması sanki gereksizmiş gibi geliyor bana örnek dosyanızda 4 satır veri var siz 10 userforma nasıl alacaksınız bunları rasgele dağıtmak bile çözüm değil.

Rasgele dağıtım için 10 tane usrformda en az 11 satır veri olmalı böyle sorunuza cevap vermek zor.
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 16:22   #7
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 793
Excel Vers. ve Dili:
2007, 32
Varsayılan

Alıntı:
halit3 tarafından gönderildi Mesajı Görüntüle
Şimdi şunu söylüyorum yazı dili ile yazdığınız mesajlardan bazen ne yapmak istediğiniz anlaşılmıyor örnek dosyanız ile mesajlarınız uyumlu olsun 10 tane userform diyorsunuz 2 tane userform var dosyanızda bu kadar çok userformların aynı işlevi yapması sanki gereksizmiş gibi geliyor bana örnek dosyanızda 4 satır veri var siz 10 userforma nasıl alacaksınız bunları rasgele dağıtmak bile çözüm değil.

Rasgele dağıtım için 10 tane usrformda en az 11 satır veri olmalı böyle sorunuza cevap vermek zor.

Hocam,

Ekte 11 satır veri var. Bu 11 veriden (11 değil 1000 de olabilir, sürekli veri giriş yapılacak) birbirinden farklı 5'ini seçip 2, 3, 4, 5, 6 numaralı userformlara rastgele çağırma işlemi yapmak istiyorum.

Örnek dosya da ektedir. Bu örnek dosyadaki kodlar da size ait zaten.

Tekrar teşekkür ederim.
Eklenmiş Dosyalar
Dosya Türü: xlsm sayfadaki_resmi-userforma-aktarma2.xlsm (169.7 KB, 3 Görüntülenme)
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal

Bu mesaj en son " 23-06-2017 " tarihinde saat 16:24 itibariyle BedriA tarafından düzenlenmiştir.... Neden: Düzeltme
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 16:44   #8
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,473
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

beş adet userformun hepsi aynı anda mı açık kalacak
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 20:04   #9
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 793
Excel Vers. ve Dili:
2007, 32
Varsayılan

Alıntı:
halit3 tarafından gönderildi Mesajı Görüntüle
beş adet userformun hepsi aynı anda mı açık kalacak
Seçim yapıldıktan sonra userform2 açılacak, butonla sonraki userformlar açılacak.
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-06-2017, 00:18   #10
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,473
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

ekli dosyayı kontrol ediniz.
Eklenmiş Dosyalar
Dosya Türü: xlsm sayfadaki_resmi-userforma-aktarma22.xlsm (173.8 KB, 3 Görüntülenme)
__________________





Forum Kuralları
halit3 Ç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 03:00


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- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden