Düşey ara, topla, yapıştır problemi.

[xzetx]

Merhaba arkadaşlar, excell de yaptığım bir yapay zeka çalışması ve bir problemim var.

A1 hücresinde pozitif bir sayı var.
B1 hücresinde A1 deki sayının bir özelliğini gösteren bir sayı daha var (negatif de olabilir). Bu sayılardan oluşan uzun bir listede D ve E stununda var.
Problem şu;
A1 deki sayıyı D sütununda arat, yoksa ilk boş yere yapıştır ( B1 de ki sayıyla beraber yani D ve E hücresine).

A1 eğer D sütununda varsa; mesela;
A1=15
B1=2 olsun. 15, D sütununda 23. Sırada var diyelim, E 23 te de 7 sayısı var. Bu durumda B1 deki 2 sayısını, E 23 teki 7 sayısına ekleyecek. Son durumda E 23, 9 olmuş olacak.
A1 ve B1 hücrelerine yeni ayılar geldikçe, aynı işlemleri tekrarlaycak.

Böyle bir şey mümkün mü, şimdiden teşekkürler.

 

[kulomer46]

Merhaba

Excelde konu ve sorun iyi anlaşılırsa bir çok çözüm bulunabilir.

Talebinize uygun hazırlanmış dosya ektedir.

Selamlar...

İlgili Resim


İlgili Kod

Private Sub Worksheet_Change(ByVal Target As Range)
'26.06.2020   15:04

On Error GoTo hata

If Target.Row = 1 Then
    If Target.Column = 1 Then
    
        For i = 1 To Cells(65500, 4).End(xlUp).Row
            
            If Target.Value = Cells(i, 4) Then
            
                
                Cells(i, 5).Select
                Cells(i, 5).Interior.Color = RGB(255, 192, 0)
                
                timer1 = Timer
                Do While Timer - timer1 < 0.7
                Loop
            
                Cells(i, 5) = Cells(i, 5) + Cells(1, 2)
                
                timer1 = Timer
                Do While Timer - timer1 < 0.7
                Loop
                
                Cells(i, 5).Interior.Color = xlNone
                
                Exit Sub
            
            End If
        
        Next
    
    End If
End If

Exit Sub

hata:

Cells(i, 5).Interior.Color = xlNone
MsgBox "İşlem yapılacak hücrelerde sayı formatına uymayan hücreler bulunmaktadır" & Chr(10) & Chr(10) & "İşlem Sonlandırıldı", , "İşlem Sonlandırıldı"


End Sub

 

[kulomer46]

Tekrar Merhaba

Yukardaki programa ek olarak "A1 deki sayıyı D sütununda arat, yoksa ilk boş yere yapıştır ( B1 de ki sayıyla beraber yani D ve E hücresine)." özelliği eklenmiş program Ek 'tedir.

Selamlar...

 

[xzetx]

Dosyayı indirmek için altın üyelik aldım, o yüzden cevap gecikti. Tam istediğim gibi olmuş, eline koluna sağlık hocam. Çok teşekkür ederim.
Sana çalışmamla ilgili kısa bir video atsam izler misin hocam?

 

[kulomer46]

Dosyayı indirmek için altın üyelik aldım, o yüzden cevap gecikti. Tam istediğim gibi olmuş, eline koluna sağlık hocam. Çok teşekkür ederim.
Sana çalışmamla ilgili kısa bir video atsam izler misin hocam?

Merhaba Dostum

Aramıza hoş geldin. Tam üyelik alarak sitemizdeki tüm dosyalardan sınırsız faydalanabilmen çok iyi olmuş.
Artık istediğin dosyayı indirir, istediğin dosyayı yüklersin. Daha önce eklenen bir çok konuyu yakından takip edip eksiklerini kapatırsın.

Bu sitede gerçekten özel emek harcanarak hazırlanmış çok dosya bulunmaktadır. Fakat genelde sorulan bir soruya cevap olarak hazırlanıp o sorunun açıldığı bölümde yayınlandığı için daha sonra aynı ve benzer dosya talepleri için yeni ihtiyacı olanlar aynı soruları tekrar tekrar sormaktadırlar.

Sorulan bir sorunun cevabı site içerisinde bir yerlerde daha önceden eklenmiş olabiliyor. Soran tekrar tekrar soruyor aynı cevaplar tekrar tekrar sıfırdan kurgulanıp ekleniyor.

Ama bu sorun değil. Beyin ve zihin tekrar tekrar tazeleniyor. Daha önce akla gelmedik bazı noktalar son dosyaya eklenebiliyor.

Burada güzel olan birbirimizi görmesekte tanımasakta Excel Platformu altında sorunlarımızı paylaşmamız ve cevap üretebilmemiz.

Çalışmanızla ilgili video izlemek isterim. İyi olur. Bekliyorum.

Selamlar...

 

[xzetx]

Nihayet bitirebildim;

https://www.excel.web.tr/threads/excell-makine-oegrenmesi-uezerine-bir-deneme-tick-tock-toe-oyunu.189141/#post-1049115

Sizin dosyayı burada kullanmadım ama bunun 2. versiyonunda kullanacağım.