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 26-07-2017, 20:05   #11
Muharrem41
 
Giriş: 15/09/2016
Şehir: kocaeli
Mesaj: 33
Excel Vers. ve Dili:
türkçe 2007
Thumbs up

Alıntı:
plint tarafından gönderildi Mesajı Görüntüle
merhaba
aşağıdaki gibi deneyiniz, hem hızlı olması açısından faydası olacaktır.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
[sıze="2"]sub listele()
dim kom()
dim a, b, c, d, e, f, i, x, n, j as ınteger
cells.clear
redim kom(1 to 6, 1 to 65536)
i = 0: N = 1: J = 1: X = 0
for a = 1 to 44
for b = a + 1 to 45
for c = b + 1 to 46
for d = c + 1 to 47
for e = d + 1 to 48
for f = e + 1 to 49
i = i + 1
kom(1, i) = a
kom(2, i) = b
kom(3, i) = c
kom(4, i) = d
kom(5, i) = e
kom(6, i) = f
ıf i = 65536 then
x = x + 1
cells(n, j).resize(i, 6) = application.transpose(kom)
ıf x = rows.count / 65536 then
x = 0: N = 1: I = 0
j = j + 6
end ıf
cells(n + i, j).select
n = n + i
 erase kom: I = 0
redim kom(1 to 6, 1 to 65536)
 end ıf
next: Next: Next: Next: Next: Next
ıf i > 0 then cells(n, j).resize(i, 6) = application.transpose(kom)
end sub
 [/sıze]
hocam eline koluna emeğine sağlık teşekkür ederim
Muharrem41 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 00:04   #12
Muharrem41
 
Giriş: 15/09/2016
Şehir: kocaeli
Mesaj: 33
Excel Vers. ve Dili:
türkçe 2007
Varsayılan

korhan hocam bu makroyu 10 lu sütün a nasıl dönüştürebilirim
Muharrem41 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 00:05   #13
Muharrem41
 
Giriş: 15/09/2016
Şehir: kocaeli
Mesaj: 33
Excel Vers. ve Dili:
türkçe 2007
Varsayılan

hocam bun 10 lu sütün a nasıl cevirebilirim
Muharrem41 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 13:43   #14
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,582
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

10'lu sütundan kastınız nedir?
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 21:18   #15
Muharrem41
 
Giriş: 15/09/2016
Şehir: kocaeli
Mesaj: 33
Excel Vers. ve Dili:
türkçe 2007
Varsayılan

123456 lı olarak değilde
konbinasyon u
12345678910 olarak yapmak istiyorum 30/10
Muharrem41 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 21:24   #16
Muharrem41
 
Giriş: 15/09/2016
Şehir: kocaeli
Mesaj: 33
Excel Vers. ve Dili:
türkçe 2007
Varsayılan Hocam iyi akşamlar

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Listele()
    Dim x As Byte, y As Long, z As Long
    Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte, f As Byte, g As Byte
    
    Cells.Clear
    x = 49
    z = 1
    
    For a = 1 To x
        For b = a + 1 To x
            For c = b + 1 To x
                For d = c + 1 To x
                    For e = d + 1 To x
                        For f = e + 1 To x
                            y = y + 1
                            If y > 1048576 Then
                                y = 1
                                z = z + 7
                            End If
                            Cells(y, z) = a
                            Cells(y, z + 1) = b
                            Cells(y, z + 2) = c
                            Cells(y, z + 3) = d
                            Cells(y, z + 4) = e
                            Cells(y, z + 5) = f
                        Next f
                    Next e
                Next d
            Next c
        Next b
    Next a

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
KORHAN HOCAM BUNU SİZ YAPTINIZ BEN BUNU 6 LI SÜTÜNDA DEĞİLDE 10 LU SÜTUNDA YAPMAK İSTİYORUM
Muharrem41 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 21:29   #17
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,582
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

1-49 arası sayıların 10'lu kombinasyonlarını istiyorsunuz? Doğru mudur?
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 21:39   #18
Muharrem41
 
Giriş: 15/09/2016
Şehir: kocaeli
Mesaj: 33
Excel Vers. ve Dili:
türkçe 2007
Varsayılan 1/30

Evet hocam ben 1/30 olarak düşünüyorum
Muharrem41 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 22:05   #19
Muharrem41
 
Giriş: 15/09/2016
Şehir: kocaeli
Mesaj: 33
Excel Vers. ve Dili:
türkçe 2007
Varsayılan

Korhan hocam böyle bir şansım varmı matık en olması lazım diye düşünüyorum
Muharrem41 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 23:34   #20
Muharrem41
 
Giriş: 15/09/2016
Şehir: kocaeli
Mesaj: 33
Excel Vers. ve Dili:
türkçe 2007
Varsayılan macro hakkında

Alıntı:
PLİNT tarafından gönderildi Mesajı Görüntüle
Merhaba
Aşağıdaki gibi deneyiniz, hem hızlı olması açısından faydası olacaktır.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Listele()
Dim kom()
Dim a, b, c, d, e, f, i, x, n, j As Integer
Cells.Clear
ReDim kom(1 To 6, 1 To 65536)
i = 0: n = 1: j = 1: x = 0
For a = 1 To 44
For b = a + 1 To 45
For c = b + 1 To 46
For d = c + 1 To 47
For e = d + 1 To 48
For f = e + 1 To 49
i = i + 1
kom(1, i) = a
kom(2, i) = b
kom(3, i) = c
kom(4, i) = d
kom(5, i) = e
kom(6, i) = f
If i = 65536 Then
x = x + 1
Cells(n, j).Resize(i, 6) = Application.Transpose(kom)
If x = Rows.Count / 65536 Then
x = 0: n = 1: i = 0
j = j + 6
End If
Cells(n + i, j).Select
n = n + i
 Erase kom: i = 0
ReDim kom(1 To 6, 1 To 65536)
 End If
Next: Next: Next: Next: Next: Next
If i > 0 Then Cells(n, j).Resize(i, 6) = Application.Transpose(kom)
End Sub
 
hocam bunu 123456 lı olarak değilde
kombinasyon u
12345678910 olarak yapmak istiyorum yani 1/30 kombinasyon unu 10 lu istiyorum mümkünmü?
Muharrem41 Ç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 08:34


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