F9 Tuşunun Görevini Otomatik Yaptırabilir miyim ?

[A_day]

Tablomda 2 satır için her F9'a basışımda randum 2 sayı üretiliyor. Ancak 2. satırdaki sayı 1. satırdaki ile aynı olursa tekrar F9'a basmam için hücrenin yanına bir ikaz yazısı düşüyor.
Ben bu ikaz yazısından da kurtulmak ve koşulun gerçekleşmesi halinde, F9'a benim basmamı beklemesi yerine, otomatik olarak yine kendisinin başka 2 sayı üretmesini istiyorum.
Kısacası F9'un işini otomatik olarak görecek bir kontrol komutu / fonksiyonu var mı ?
Şimdiden teşekkürler...

 

[Necdet]

Hesaplamayı otomatiğe ayarlayın.

 

[A_day]

İlginize teşekkür ediyorum. Otomatiğe nasıl ayarlanır bilmiyorum. Bahsettiğim kontrolü yapan satır aşağıda. Otomatik hesaplaması için bu satırı nasıl düzenleye bilirim?

=EĞER(KAÇINCI(C10,C:C,0)=SATIR(),"",1)

 

[Necdet]

Merhaba,

excel seçeneklerinden giderek hesaplamayı bulun ve hesaplamayı otomatik olarak seçin.

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

Sayı olan aralıkta mükerrer olan değerler kırmızı olmaktadır. Kırmızı değer gördüğünüzde butona tıklayın.

 

[A_day]

Sanırım istediğimi tam izah edemedim. Benim her F9 tuşlamamda randum sayılar üretilmesi çok önemli. Yani ben ihtiyaç duydukça F9'a basıp yeni yeni sayılar ürettirmeliyim.

Burada benzer sayılar üretildiğinde, benzeşen 2. satırının sağına "1" yazılması neticesi, ben "benzer sayılar üretildiği" uyarısını alıp, yeniden F9'a basıyorum.

İşte meramım şu ki; bana benzer sayılar oluştuğunu haber veren ve hücreye "1" yazan kontrol satırı, bu benzerliği tespit edip bana uyarı yazacağına, kendisi otomatik olarak bir döngü daha yapsın (yani tabiri caizse, benim yerime F9'a bassın) istiyorum.

Bu kontrol satırına bunu yaptırtmak mümkün müdür, onu merak ediyorum...

 

[Necdet]

Merhaba,

Örnek dosya ekleyebilir misiniz?

 

[A_day]

Ekli dosyayı kısaca anlatayım:

"Fragebogen" sayfası B sütununda, F9'la, belirli sınırlar içerisinde kalan sayılar üretiliyor. Bu sayılara göre diğer sayfalardan, üretilen sayılarla eş satır no'larının sağındaki bilgiler "C" sütununa yansıtılıyor.

Bunların içinde benzer satırlar olup olmadığını ise "F" sütunundaki komut kontrol ediyor. Eğer "C" sütunundaki bir içeriğe, daha alt satırlarda rastlarsa, 2. kez tekrarlananın ikazını yapmak için kırmızı 1 rakamı yazıyor. Ben bunu görünce yeniden F9'a basıyorum.

Arzum odur ki; beni uyarmak için "1" yazacağına otomatik olarak bir kez daha randum çevirsin...

 

[Korhan Ayhan]

Merhaba,

#5 nolu mesajımdaki örnek dosya işinize yaramadı mı?

 

[Necdet]

Makro şifreli.

 

[A_day]

Korhan bey merhaba,

Örneğinizi inceledim. Ama sanırım tam aradığımın karşılığı değil gibi.

Çünkü benzer rakamlar oluştuğunda beni uyarmasını değil, refresh yaparak yeniden randum dönmeye kendisinin karar vermesini, yani benden F9'a ya da "Hesapla" butonuna basmamı beklememesini arzuluyorum.

Ayrıca ilginize çok teşekkür ediyorum...

 

[A_day]

Makro şifreli.

Makroya takılmayın. Çünkü o sayfadaki bir formülü başka bir yerden bulup kopyaladığımda o makrolar da beraber taşınmış. Bir işime yaradıkları yok. Ancak sayfa koruma şifresine ihtiyaç olursa; şifre : x

 

[Necdet]

Makroya takılmayın. Çünkü o sayfadaki bir formülü başka bir yerden bulup kopyaladığımda o makrolar da beraber taşınmış. Bir işime yaradıkları yok. Ancak sayfa koruma şifresine ihtiyaç olursa; şifre : x

Peki makroya takılmayım. İsteğiniz makro ile yapılabilir. Takılmayınca da olmuyor işte F9 a devam.

 

[A_day]

Tamamdır, ne ben o sözü yazdım, ne de siz okudunuz... )

Olsun da nasıl olursa olsun, kabulüm... Yeter ki; F9'a basmamı istemeden kendi işini kendi görsün... )

 

[Korhan Ayhan]

Merhaba,

Bu durumda dosyanızın açılışına ve ilgili sayfanın aktif olma olayına yazacağınız kod ile bu sorunu çözebilirsiniz.

Boş bir modüle;

Option Explicit
 
Sub AUTO_OPEN()
    Dim Aralık As Range, Hücre As Range, Say As Integer
    
    Sheets("Fragebogen").Select
    
10
    Set Aralık = Range("C3:C32")
    Say = 0
    
    For Each Hücre In Aralık
        If WorksheetFunction.CountIf(Aralık, Hücre) > 1 Then
            Say = Say + 1
            Exit For
        End If
    Next
    
    If Say <> 0 Then
        Application.Calculate
        GoTo 10
    End If
End Sub

Fragebogen isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

Option Explicit
 
Private Sub Worksheet_Activate()
    Dim Aralık As Range, Hücre As Range, Say As Integer
    
10
    Set Aralık = Range("C3:C32")
    Say = 0
    
    For Each Hücre In Aralık
        If WorksheetFunction.CountIf(Aralık, Hücre) > 1 Then
            Say = Say + 1
            Exit For
        End If
    Next
    
    If Say <> 0 Then
        Application.Calculate
        GoTo 10
    End If
End Sub
 
Private Sub Worksheet_Calculate()
    Dim Aralık As Range, Hücre As Range, Say As Integer
    
10
    Set Aralık = Range("C3:C32")
    Say = 0
    
    For Each Hücre In Aralık
        If WorksheetFunction.CountIf(Aralık, Hücre) > 1 Then
            Say = Say + 1
            Exit For
        End If
    Next
    
    If Say <> 0 Then
        Application.Calculate
        GoTo 10
    End If
End Sub

 

[A_day]

Korhan bey ilginize yürekten teşekkürler ediyorum.

Gün boyu iş yoğunluğundan önerdiğiniz çözümü deneme fırsatı bulamadım. Deneyip sonucu size bildirmek istediğim için de hemen cevap yazamadım, kusura bakmayın.
Eve gelir gelmez denedim. Makrolar, kodlar, modüller pek aşina olduğum şeyler değil. Anlayabildiğim kadarıyla ilişikteki dosyaya verdiğiniz kodları yapıştırdım ama doğru olup olmadığını bilemiyorum. Kontrol edip neticeyi söylerseniz mutlu olurum.

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajımdaki kodu son eklediğiniz dosyaya göre düzenledim. Tekrar uygulayıp deneyiniz.

 

[A_day]

Hafta sonu evde değildim. Gelir gelmez cevabınızı gördüm ve uyguladım, çalışıyor.

Sonsuz teşekkürler. Ellerinize sağlık.

Sizi de epey yordum, hakkınızı helal edin.

Esen kalın...