• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

siralama

A

adslboy

Katılım
9 Mayıs 2008
Mesajlar
57
Excel Vers. ve Dili
Excel Uzmani
Selam arkadaslar,

istedigim seyi ekte ki dosyada yazdim

ilgilenen hocalarim ve ustadlarima

tesekur ederim


Saygilarimla
 

Ekli dosyalar

Son düzenleme:
Görünmez ek kullanıyorsunuz herhalde. :D :D
 
Dosyayı eklemeyi unutmuşsunuz yada ben göremedim kontrol edermisiniz?
 
Eklemeyi unutmuşum gerekli düzenlemeyi yaptım ... :)
 
Son düzenleme:
boyle bisey sanirim mumkun degil :confused:

Evren Hocam siz bu islerde uzmansinizdir bir yardimci olursanis sevinirim daha once benzer calismalarinizi indirmistim hepsi
cok guzel di ayrica yardimci olacak herkeze de tesekur ederim

Saygilar
 
Son düzenleme:
Dağa önce hiç böyle bir işlem yapmadım.
Ekli dosyayı inceleyiniz.:cool:
Kod: 
Sub tombala()
Randomize Timer
Range("A505:V505").ClearContents
Range("a1:v500").ClearFormats
For i = 1 To 22
    sat = CInt(Int(Rnd() * 499) + 1)
    Cells(505, i).Value = Cells(sat, i).Value
    Cells(sat, i).Font.Color = vbWhite
    Cells(sat, i).Font.Bold = True
    Cells(sat, i).Interior.Color = vbBlack
Next i
MsgBox "Tombala Çekilmiştir.Kazananlara iyi harcamalar.", vbOKOnly, "TOMBALA"
End Sub
 

Ekli dosyalar

muhteşem olmuş elinize sağlık elleriniz dert görmesin teşekürler :bravo:
 
Sanırım şimdi oldu.
Dosyayı 6 numaralı mesajdan indirebilirsiniz.:cool:
 
Uyarıniz için teşekkürler calismaniz takdire deger olmus :ok::

Gerçekten cok teşekkür ederim.
 
Sayin Evren Gizlen Hocam,

ilgili calismaya kucuk bir ilave yapmanizi rica ediyorum sizlerden

istedigimi dosyaya yazdim.

Ricami kirmazsaniz çok sevinirim :)

iyi Çalismalar
 
Son düzenleme:
Tamam yaparımda tombala çekilişi sonucunda boş hücreler gelirse ne olacak.Veya boş hücre gelmesini istiyormusunuz?:cool:
 
Bana öyle geliyorki bu iş izmir torbaya doğru gider.:cool:
 
bos olmasi veya olmamasi farketmez :cool::yardim:

Saygilar
 
Son düzenleme:
Bu Tombala İzmir torba olur.Buna alet olmak istemem.
Sorunuza cevap vermeyeceğim.:cool:
 
İlginize teşekkür ederim su ana kadar harcadiginiz emek ve zaman icin de minnettarim..

Sevgi ve Saygılarımla...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst