(18/01/2021, 11:55)atoykan yazdı:

(18/01/2021, 11:47)feraz yazdı: Belki windows dil farklı plduğu için değer hatası vardır yada bağlantı gibi bişey varsada olabilir.
F9 da yanlışlar etkilensin kısmını anlamadım.

Arkadaşın dosyasında tarihler için rastgele atama yapıyor ve sizde değer yazan yerlerde eğer (IF) denetimi ile kontrol yapılarak Doğru veya Yanlış olarak sonuç görülüyor. Arkadaş eğer sonuç Doğru ise o satır için rastgele atamanın durmasını ve F) mauel hesaplamanın yanlış değerine ait satırlar için devam etmesini istiyor anladığım kadarıyla.

Öyle ise kod ile yapılabilir belki abey.
Onkey felan kodlar var bununla F9 a atama yapılabilir.Tabii sizde çözebilirsiniz

(18/01/2021, 12:10)feraz yazdı:

(18/01/2021, 11:55)atoykan yazdı:

(18/01/2021, 11:47)feraz yazdı: Belki windows dil farklı plduğu için değer hatası vardır yada bağlantı gibi bişey varsada olabilir.
F9 da yanlışlar etkilensin kısmını anlamadım.

Arkadaşın dosyasında tarihler için rastgele atama yapıyor ve sizde değer yazan yerlerde eğer (IF) denetimi ile kontrol yapılarak Doğru veya Yanlış olarak sonuç görülüyor. Arkadaş eğer sonuç Doğru ise o satır için rastgele atamanın durmasını ve F) mauel hesaplamanın yanlış değerine ait satırlar için devam etmesini istiyor anladığım kadarıyla.

Öyle ise kod ile yapılabilir belki abey.
Onkey felan kodlar var bununla F9 a atama yapılabilir.Tabii sizde çözebilirsiniz

Valla hocam ben çözemem.

Alttaki kodu bir modüle ekleyip çalıştırın.
Doğru anladımmı bilemiyorum yinede.
Koddaki Wahr yerlere DOĞRU olarak değiştirin.

Sub F9_Ata()

    Dim i As Long, son As Long

    

    With ThisWorkbook.Sheets("table1")

        son = .Cells(Rows.Count, 1).End(3).Row

        If son < 2 Then Exit Sub

        For i = 2 To son

            Do While .Cells(i, "G").Value <> "Wahr"

                Application.Calculate

                If .Cells(i, "G").Value = "Wahr" Then

                  .Range("D" & i & ":" & "G" & i).Value = .Range("D" & i & ":" & "G" & i).Value

                    GoTo var

                End If

            Loop

var:

            If .Cells(i, "G").Value = "Wahr" Then

                .Range("D" & i & ":" & "G" & i).Value = .Range("D" & i & ":" & "G" & i).Value

            End If

        Next

    End With

    MsgBox "Bitti"

  End Sub

(18/01/2021, 23:20)feraz yazdı: Alttaki kodu bir modüle ekleyip çalıştırın.
Doğru anladımmı bilemiyorum yinede.
Koddaki Wahr yerlere DOĞRU olarak değiştirin.

Hocam bunu yaptım ama çalışmadı. Her f9 yaptığımda doğru yazan satırdaki veriler de değişiyor .

---

(20/01/2021, 17:49)enginbeyy yazdı:

(18/01/2021, 23:20)feraz yazdı: Alttaki kodu bir modüle ekleyip çalıştırın.
Doğru anladımmı bilemiyorum yinede.
Koddaki Wahr yerlere DOĞRU olarak değiştirin.

Hocam bunu yaptım ama çalışmadı. Her f9 yaptığımda doğru yazan satırdaki veriler de değişiyor .

bunu yazınca fark ettim sanki yapmak istediğimi burda daha iyi anlatmışım
özetle "DOĞRU" olan satır f9 dan etkilenmesin istiyorum.

Teşekkürler.

Benim yaptığım şuydu.
Hani doğru ve yanlış diye çıkıyordu.
Makroyu çalıştırınca tün yanlışlar doğru olana kadar makro çalışır.İşlem bitincede formülleri değer olarak kaydeder.
Rasgele arada formülünden dolayı devamlı çalışıyor formüller ve veriler değişiyordu.
Daha öncedende dediğim gibi tam anlamadım mantığı hala.
Daha öncedende dediğim gibi sonuçu excelde gösterseydiniz tam anlaşılırdı.

Sayın enginbeyy

Ekteki örnekte G sütununa eklediğim SONUÇ butonuna tıklayıp dener misiniz?