(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
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?