Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Beyin Fırtınası
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Beyin Fırtınası Bu başlıkta, ilginç olduğunu düşündüğünüz sorularınızı, bir problem şeklinde sorabilir, alternatif olduğunu düşündüğünüz çözümlerinizi paylaşabilirsiniz. (Bu başlıkta yeni konu açılması onaya bağlıdır.)
Dosya ekleyebilirsiniz

Özel Arama


Kapalı Konu
 
Paylaş Konu Araçları Görünüm Modları
Eski 28-11-2008, 01:33   #11
Taruz
Uzman
 
Taruz kullanıcısının avatarı
 
Giriş: 18/04/2007
Şehir: İstanbul
Mesaj: 2,062
Excel Vers. ve Dili:
Access 2010
Varsayılan



Evet sanırım biraz! ağır olmuş Ferhat Bey. Şimdi sevgili beab05'in ilgili konuda yazdığı algoritmasını da okuyunca olayın olasılığı konusunda iyice ikna oldum.

İyi geceler.
Taruz Çevrimdışı  
Eski 28-11-2008, 10:36   #12
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,633
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Selamlar,

Aşağıdaki kod ile;

(-4) ve (4) değerleri arasında
Benzersiz
Ondalıklı
Toplamı 30 olan
50 adet sayı üretebilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Option Explicit
 
Sub EKSİDÖRT_İLE_ARTIDÖRT_ARASINDA_BENZERSİZ_SAYI_ÜRET()
    Dim Eksi_Değer As Integer, Artı_Değer As Integer
    Dim Sayı As Double, Toplam As Double, Satır As Long
    Dim En_Büyük As Double, Fark As Double, Yeni_Sayı As Double
    Dim İlk As Date, Son As Date, Süre As Date
 
    İlk = Time
    Eksi_Değer = -3
    Artı_Değer = 3
Başla:
 
    Columns(1).ClearContents
 
    Satır = 1
 
    Toplam = 0
 
    Do While Satır <= 50
Devam:
    Sayı = Evaluate("=RASTGELEARADA(" & Eksi_Değer & "," & Artı_Değer & ")+ROUND(RAND(),2)")
        If Sayı <> 0 Then
            If WorksheetFunction.CountIf([A:A], Sayı) = 0 Then
                Toplam = Toplam + Sayı
                    If Toplam <= 30 Then
                        Cells(Satır, 1) = Sayı
                        Satır = Satır + 1
                    Else
                        Toplam = Toplam - Abs(Sayı)
                        GoTo Devam
                    End If
            End If
        End If
    Loop
 
    Fark = Round(30 - WorksheetFunction.Sum(Columns(1)), 2)
    En_Büyük = WorksheetFunction.Large(Columns(1), 5)
 
    If WorksheetFunction.Sum(Columns(1)) >= 27 And WorksheetFunction.Sum(Columns(1)) < 30 Then
    Yeni_Sayı = En_Büyük + Abs(Fark)
 
    If Yeni_Sayı > (Artı_Değer + 1) Then GoTo Başla
 
    If WorksheetFunction.CountIf([A:A], Yeni_Sayı) = 0 Then
        Cells([A:A].Find(En_Büyük).Row, 1) = Yeni_Sayı
    End If
 
    ElseIf WorksheetFunction.Sum(Columns(1)) > 30 And WorksheetFunction.Sum(Columns(1)) <= 33 Then
        Yeni_Sayı = En_Büyük - Abs(Fark)
            If WorksheetFunction.CountIf([A:A], Yeni_Sayı) = 0 Then
            If Yeni_Sayı < (Eksi_Değer - 1) Then GoTo Başla
            Cells([A:A].Find(En_Büyük).Row, 1) = Yeni_Sayı
            End If
    Else
    GoTo Başla
    End If
 
    Son = Time
    Süre = Format((Son - İlk), "hh:mm:ss")
    MsgBox "İşleminiz tamamlanmıştır." & vbCrLf & vbCrLf & "İşlem süresi ; " & Süre, vbInformation
End Sub
Uygulamalı örnek dosya ektedir.
Eklenmiş Dosyalar
Dosya Türü: xls ÖRNEK.xls (38.0 KB, 182 Görüntülenme)
__________________
.
.
.

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ışı  
Eski 28-11-2008, 10:46   #13
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,163
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sayı = Evaluate("=RASTGELEARADA(" & Eksi_Değer & "," & Artı_Değer & ")+ROUND(RAND(),2)")
Syn. Hocam,
Bu satırda hata veriyor.
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimdışı  
Eski 28-11-2008, 11:36   #14
Ferhat Pazarçevirdi
 
Ferhat Pazarçevirdi kullanıcısının avatarı
 
Giriş: 15/06/2006
Şehir: İzmir
Mesaj: 3,723
Excel Vers. ve Dili:
Excel 2003, 2007, 2010 (TR)
Varsayılan

Korhan bey,

Benim anladığım şekliyle; rastgelelik bu değil ...

Kodunuz üzerinde şunlar kafama takıldı ... Soruları kod üzerinde kırmızı ile gösterdim.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
    'Satır 50'den küçük ve eşit olduğu müddetçe
    Do While Satır <= 50
Devam:
    
    'Sayıyı üret ...
    Sayı = Evaluate("=RASTGELEARADA(" & Eksi_Değer & "," & Artı_Değer & ")+ROUND(RAND(),2)")
        
        'Sayı 0'dan farklıysa ('Bu kısıma neden 0 dahil edilmiyor ?)
        If Sayı <> 0 Then
            'Üretilen sayı tek(yegane) ise
            If WorksheetFunction.CountIf([A:A], Sayı) = 0 Then
                'Sayıyı toplama dahil et
                Toplam = Toplam + Sayı
                    'Eğer toplam 30'dan küçük ve eşitse
                    If Toplam <= 30 Then
                        'Hücreye sayıyı yaz
                        Cells(Satır, 1) = Sayı
                        'Satırı 1 artır
                        Satır = Satır + 1
                    'Eğer toplam 30'dan büyükse
                    Else
                        'Toplamdan üretilen sayıyı çıkar
                        Toplam = Toplam - Sayı
                        '----Burada, üretilen sayı negatifse, toplam artmıyor mu?
                        '----Toplam artınca, bundan sonra üretilecek sayılar,bu durumda etkilenecektir
                        'Sayı üretmeye devam et
                        GoTo Devam
                    End If
            End If
        End If
    
    Loop
Ayrıca; En_Büyük adlı değişken, neden sütundaki 5.Enbüyük değer? ... Bunun bir anlamı var mı?

Ben ise; 50 adet gerçekten rassal üretilmiş, -4 ila +4 arasında değişen sayı bulunup, toplamlarının 30 olması şeklinde düşündüm. Hiçbir kısıt koymadım.

Sizden önce yaptığım yorum, saf rassallıktan ibarettir ve süresi konusunda asla emin olunamaz.
__________________
Bugün pazar. | Bugün beni ilk defa güneşe çıkardılar. | Ve ömrümde ilk defa gökyüzünün | bu kadar benden uzak | bu kadar mavi | bu kadar geniş olduğuna şaşarak | kımıldamadan durdum. | Sonra saygıyla toprağa oturdum, | dayadım sırtımı duvara. | Bu anda ne düşmek dalgalara, | bu anda ne kavga,ne hürriyet, ne karım. | Toprak, güneş ve ben | Bahtiyarım| NAZIM/1938
www.xlchart.blogspot.com
Ferhat Pazarçevirdi Çevrimdışı  
Eski 28-11-2008, 12:16   #15
hsayar
 
hsayar kullanıcısının avatarı
 
Giriş: 02/03/2005
Şehir: İpsala/Edirne
Mesaj: 2,968
Excel Vers. ve Dili:
ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista
Varsayılan

Alıntı:
leumruk tarafından gönderildi Mesajı Görüntüle
Değerli Arkadaşlar,
Malum bu konuda pek çok soru geliyor. Benim bir önerim olacak, bu başlık altında bu konuyla ilgili kodları ekleyebilir miyiz? Alternatifler bir başlık altında toplanırsa hangisini kullanacağımıza daha iyi karar verebiliriz.
Ben bu konuyla ilgili gelen ve gelebilecek soruları sıralamaya çalışayım:
1. A1 hücresine 1-100 arasında rastgele sayı üretme.
2. A1 hücresine 1-100 arasında rastgele sayı üretme. 100 sayı tekrarlanana kadar aynı sayı yeniden gelmeyecek. Bittiğinde çekilişin bittiği uyarısını verecek.
3. A1-A100 arası tekrarsız rastgele sayı üretme.
4. A1:A50 arasında yazılı rastgele sayıları B1:B50 arasına rastgele sıralama.
5. A1:A50 arasındaki hücrelerden birini rastgele seçme.
6. A1:A50 arasındaki hücreleri rastgele seçme, seçtiğini bir daha seçmeme.

Şu an aklıma gelenler bunlar, elinde veri olan arkadaşlar paylaşırsa memnun olurum.
Burada olmayıp da aklınıza gelen konuyla ilgili bildiklerinizi de paylaşırsanız, sevinirim.
katkısı olacak arkadaşlara şimdiden teşekkürler.
Alıntı:
leumruk tarafından gönderildi Mesajı Görüntüle
Korhan Hocam,
Teşekkür ederim. Çok güzel bir kaynak oldu.
Bir kaç tane daha aklıma konu geldi:
1. A1: A10 arasındaki hücrelerde bulunan verileri kendi içinde rastgele karıştırma.
2. Aynı şekilde yan yana bulunan birden fazla sütunda bulunan verileri dağılım düzeni birbiriyle aynı olmayacak şekilde rastgele dağıtma.
Syn. Hocam bunlarında çözümü var mı?
Bunların dışında aklınıza gelen başka rastgele dağılım biçimleri varsa, eklerseniz sevinirim.
Saygılar...

kodlar
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
'1. A1 hücresine 1-100 arasında rastgele sayı üretme.
'2. A1 hücresine 1-100 arasında rastgele sayı üretme. 100 sayı tekrarlanana kadar aynı sayı yeniden gelmeyecek. Bittiğinde çekilişin bittiği uyarısını verecek.
'3. A1-A100 arası tekrarsız rastgele sayı üretme.
'4. A1:A50 arasında yazılı rastgele sayıları B1:B50 arasına rastgele sıralama.
'5. A1:A50 arasındaki hücrelerden birini rastgele seçme.
'6. A1:A50 arasındaki hücreleri rastgele seçme, seçtiğini bir daha seçmeme.
'Korhan Hocam,
'Teşekkür ederim. Çok güzel bir kaynak oldu.
'Bir kaç tane daha aklıma konu geldi:
'1. A1: A10 arasındaki hücrelerde bulunan verileri kendi içinde rastgele karıştırma.
'2. Aynı şekilde yan yana bulunan birden fazla sütunda bulunan verileri dağılım düzeni birbiriyle aynı olmayacak şekilde rastgele dağıtma.
'

Sub Soru1()
  data = BenzersizRastgeleSayilar(1, 1, 100, enCevapHayır)
  Cells(1, 1) = data(1)
End Sub

Sub Soru3()
  data = BenzersizRastgeleSayilar(100, 1, 100, enCevapHayır)
  For i = 1 To UBound(data)
    Cells(i, 1) = data(i)
  Next i
End Sub

Sub soru4()
Dim Csf As Excel.Worksheet:     Set Csf = ActiveSheet
Dim rngGiris As Range, rngcikis As Range
With Csf
  Set rngGiris = .Range(.Cells(1, 1), .Cells(50, 1))
  Set rngcikis = .Range(.Cells(1, 2), .Cells(50, 2))
  Call PrSubSütunlarıKarıştır(rngGiris, rngcikis)
End With
Set Csf = Nothing
Set rngGiris = Nothing
Set rngcikis = Nothing
End Sub

Sub soru5()
Dim Csf As Excel.Worksheet:     Set Csf = ActiveSheet
With Csf
  data = BenzersizRastgeleSayilar(1, 1, 50, enCevapHayır)
  MsgBox .Cells(data(1), 1).Address & vbNewLine & "Hücresi seçildi.", vbInformation
  .Cells(data(1), 1).Select
End With
Set Csf = Nothing
End Sub
Sub soru_ek1()
Dim Csf As Excel.Worksheet:     Set Csf = ActiveSheet
Dim rngGiris As Range
With Csf
  Set rngGiris = .Range(.Cells(1, 1), .Cells(50, 1))
  Call PrSubSütunlarıKarıştır(rngGiris, rngGiris)
End With
Set Csf = Nothing
Set rngGiris = Nothing
Set rngcikis = Nothing
End Sub
fonksiyonlar
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Public Enum enCevap
  enCevapEvet
  enCevapHayır
End Enum
Function BenzersizRastgeleSayilar(KacAdetSayi As Long, EnKucukSayi As Long, EnBuyukSayi As Long, Optional Sıralımı As enCevap) As Variant
'Benzersiz Rastgele Sayılar Üretir.
'Kullanımı Aşağıdaki gibidir
'Data = UniqueRandomNumbers(6, 1, 49)
Dim RandColl As Collection, varTemp() As Long
Dim k&, i&, j&
BenzersizRastgeleSayilar = False

If KacAdetSayi < 1 Then Exit Function
If EnKucukSayi > EnBuyukSayi Then Exit Function
If KacAdetSayi > (EnBuyukSayi - EnKucukSayi + 1) Then Exit Function
Set RandColl = New Collection
Randomize
Do
On Error Resume Next
i = CLng(Rnd * (EnBuyukSayi - EnKucukSayi) + EnKucukSayi)
RandColl.Add i, CStr(i)
On Error GoTo 0
Loop Until RandColl.Count = KacAdetSayi

ReDim varTemp(1 To KacAdetSayi)

For i = 1 To KacAdetSayi
varTemp(i) = RandColl(i)
Next i
Set RandColl = Nothing

If Sıralımı = enCevapEvet Then
  '**************ripek********************
  For i = 1 To KacAdetSayi - 1
      For j = i + 1 To KacAdetSayi
          If varTemp(i) > varTemp(j) Then
              k = varTemp(i)
              varTemp(i) = varTemp(j)
              varTemp(j) = k
          End If
      Next j
  Next i
  '**************ripek********************
End If
BenzersizRastgeleSayilar = varTemp
Erase varTemp
k = 0: i = 0: j = 0
'*****www.excel.web.Tr***********
End Function
Sub PrSubSütunlarıKarıştır(rngGiris As Range, rngcikis As Range)
Dim data As Variant
Dim snlTab() As Variant
Dim tabSnc() As Variant
Dim ii As Long, sat As Long
snlTab = rngGiris
'\\ Karıştırılacak verilerin index nolarını alıyoruz.
  data = BenzersizRastgeleSayilar(UBound(snlTab), LBound(snlTab), UBound(snlTab), enCevapHayır)
  If TypeName(data) = "Boolean" Then
    MsgBox "BenzersizRastgeleSayilar fonksiyonu için verdiğiniz KacAdetSayi, EnKucukSayi, EnBuyukSayi değerlerinden bir veya daha fazlası uyumsuzdur."
    Exit Sub
  End If
'\\ Elemanları İndex numaralarından tabSnc Dizisine atıyoruz.
    ii = 0
    For sat = LBound(snlTab) To UBound(snlTab)
      ii = ii + 1
      ReDim Preserve tabSnc(1 To 1, 1 To ii)
      tabSnc(1, ii) = snlTab(data(sat), 1)
    Next sat
'\\ tabSnc Dizisini Çalışma sayfasına geri veriyoruz.
    rngcikis = Empty
    rngcikis = Application.Transpose(tabSnc)
'\\ Değişknelerimizi siliyoruz.
Erase snlTab, tabSnc, data
Set rngGiris = Nothing
Set rngcikis = Nothing
End Sub
__________________
Felâket başa gelmeden evvel, onu önleyecek ve ona karşı savunulacak gerekleri düşünmek lâzımdır. Geldikten sonra dövünmenin faydası yoktur.[B]ATATÜRK[/B]

Türkler’den bahsediyorum. Düşmanına saldırırken amansız bir kasırgaya, korkunç bir denize ve insafsız bir yıldırıma benzeyen Türk; dost yanında ve silahsız düşman karşısında bir seher yelidir, berrak bir göldür. Gönül açan bu yeli yıldırmak, göz kamaştıran bu gölü coşkun bir denize çevirmek tabiatı da inciten bir gaflet olur.
[B]Tasso (İtalyan Şair)[/B]
hsayar Çevrimdışı  
Eski 28-11-2008, 12:21   #16
Muhammet Okumuş
Destek Ekibi
 
Muhammet Okumuş kullanıcısının avatarı
 
Giriş: 28/09/2007
Şehir: Zonguldak
Mesaj: 3,436
Excel Vers. ve Dili:
2010 Türkçe
Varsayılan

korhan ayhan hocam 3.sorunun cevbı için a1:a100 arasına tekrarsız 100 sayı üretmişsiniz.peki bunu mause her bastığımızda 1 rakam seçmesini yapabilirmisiniz.
Muhammet Okumuş Çevrimdışı  
Eski 28-11-2008, 12:21   #17
hsayar
 
hsayar kullanıcısının avatarı
 
Giriş: 02/03/2005
Şehir: İpsala/Edirne
Mesaj: 2,968
Excel Vers. ve Dili:
ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista
Varsayılan

eğer çekilişlerimde aynı rakamlar gelebilir diyorsanız aşağıdaki kodları kullanmalısınız:
module
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Soru3a()

    data = RastgeleRakamlar(100, 1, 100)
  For i = 1 To UBound(data)
    Cells(i, 1) = data(i)
  Next i
End Sub
Fonksiyonlara ek
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Function RastgeleRakamlar(KacAdetSayi As Long, EnKucukSayi As Long, EnBuyukSayi As Long) As Variant
'Benzersiz Rastgele Sayılar Üretir.
'// KacAdetSayi   : KaçAdet Sayı Üretilecek
'// EnKüçükSayi   : Alt Sınırımız var ise kaç
'// EnBüyükSayi   : Üst Sınırımız var ise kaç
'// Data = BenzersizRakamlar(5, 20, 100)    ' 20 ila 100 arasında 5 adet sayı üret.

Dim RandColl As Collection, varTemp() As Long
Dim k&, i&, j&
RastgeleRakamlar = False
  
If KacAdetSayi < 1 Then Exit Function
If EnKucukSayi > EnBuyukSayi Then Exit Function
If KacAdetSayi > (EnBuyukSayi - EnKucukSayi + 1) Then Exit Function

Set RandColl = New Collection
Randomize
Do
  i = CLng(Rnd * (EnBuyukSayi - EnKucukSayi) + EnKucukSayi)
  RandColl.Add i
Loop Until RandColl.Count = KacAdetSayi

ReDim varTemp(1 To KacAdetSayi)
For i = 1 To KacAdetSayi
  varTemp(i) = RandColl(i)
Next i
Set RandColl = Nothing
RastgeleRakamlar = varTemp
Erase varTemp
k = 0: i = 0: j = 0
End Function
__________________
Felâket başa gelmeden evvel, onu önleyecek ve ona karşı savunulacak gerekleri düşünmek lâzımdır. Geldikten sonra dövünmenin faydası yoktur.[B]ATATÜRK[/B]

Türkler’den bahsediyorum. Düşmanına saldırırken amansız bir kasırgaya, korkunç bir denize ve insafsız bir yıldırıma benzeyen Türk; dost yanında ve silahsız düşman karşısında bir seher yelidir, berrak bir göldür. Gönül açan bu yeli yıldırmak, göz kamaştıran bu gölü coşkun bir denize çevirmek tabiatı da inciten bir gaflet olur.
[B]Tasso (İtalyan Şair)[/B]
hsayar Çevrimdışı  
Eski 28-11-2008, 12:45   #18
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,163
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Syn. hsayar,
Teşekkürler. Kodlar muhteşem...Ellerinize sağlık. Devamını bekliyoruz.
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimdışı  
Eski 28-11-2008, 13:09   #19
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,633
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Selamlar,

Ferhat bey,

Sıfır sayısının toplama etkisi olmayacağından dolayı üretilen sayıların sıfırdan farklı olması gerektiğini düşündüm.

Toplam=Toplam-Sayı ifadesinde üretilen sayı negatifse toplam artacaktır. Doğru bir tesbitte bulunmuşsunuz. (Bu kısmı düzeltip dosyayı revize ederim.)

En_Büyük adlı değişkende 5 değerini Fark ile tesbit edilen değeri bu değişkene eklediğimde (4) değerinden büyük olmaması için eklemiştim. Amacım kodu biraz daha hızlandırmaktı.

Tabiki istenilen şartlarda rastgele üretilen sayılarda verilen toplama ulaşmak için sizinde belirttiğiniz gibi süreyi bilmek imkansızdır.

Amacım sadece çözüm üretip beyin fırtınasına katkıda bulunmaktı.
__________________
.
.
.

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ışı  
Eski 28-11-2008, 13:27   #20
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,633
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Selamlar,

Sn. leumruk,

Hatayı gidermek için aşağıdaki işlemleri yapınız.

ARAÇLAR - EKLENTİLER menüsünden ToolPak - VBA Çözümleyicisi seçeneğini aktif hale getirin.
__________________
.
.
.

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ışı  
Kapalı Konu


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:11


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