DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
If Cells(i, cocuk1).Value <> Cells(i, baba1) And Cells(i, cocuk1).Value = Cells(i, baba2) Then
If Cells(i, cocuk2).Value = Cells(i, baba1) And Cells(i, cocuk2).Value = Cells(i, baba2) Then
If Cells(i, cocuk1).Value = Cells(i, anne1) And Cells(i, cocuk1).Value <> Cells(i, anne2) Then
If Cells(i, cocuk2).Value <> Cells(i, anne1) And Cells(i, cocuk2).Value <> Cells(i, anne2) Then
'MsgBox aranan2 & Chr(10) & i
Cells(i, sut3).Value = aranan2
If veri = 1 Then
MsgBox 48
End If
End If
End If
End If
End If
Sub aktar1()
cocuk1 = 6
cocuk2 = 7
sut3 = 21
anne1 = "b"
anne2 = "c"
baba1 = "d"
baba2 = "e"
Range(Cells(3, sut3), Cells(36, sut3)).ClearContents
veri = 0
For i = 3 To Cells(Rows.Count, cocuk1).End(3).Row
aranan1 = Cells(i, cocuk1).Value
aranan2 = Cells(i, cocuk2).Value
If Cells(i, cocuk1).Value = Cells(i, baba1) And Cells(i, cocuk1).Value <> Cells(i, baba2) Then
If Cells(i, cocuk2).Value <> Cells(i, baba1) And Cells(i, cocuk2).Value <> Cells(i, baba2) Then
If Cells(i, cocuk1).Value <> Cells(i, anne1) And Cells(i, cocuk1).Value <> Cells(i, anne2) Then
If Cells(i, cocuk2).Value <> Cells(i, anne1) And Cells(i, cocuk2).Value = Cells(i, anne2) Then
Cells(i, sut3).Value = aranan1
If veri = 1 Then
MsgBox 1
End If
End If
End If
End If
End If
SanırımKodun genetiğini bozmuş olmanız ihtamali yüksek görünüyor ....
Bahsettiğim genetik bozulması oydu zaten ......Bu arada şu şeklide bir uyarı almıştım.
"compile error" procedure too large
Hmmm, e o da haklı elbette..Çok fazla satır kod olmuş, VBA isyan etmiş.
Dim i As Integer
'
Sub Test()
For i = 1 To 2000
Cells(i, 1) = i
Next
Call Devam1
End Sub
'
Sub Devam1()
For j = i To 5000
Cells(j, 1) = j
Next
End Sub
Halit bey, merhabalar..Şu an bir haftadır başka bir yerdeyim bir kaç gün sonra dönmüş olacağım o zaman detaylı bakarız.
Bu dosyada a ktar1,aktar2 ,aktar3 makroları u bölümü bulun var aktar2 de ( 'buraya ekleme yapınızz") ve ekleme yapın daha sonra burası belli bir kod satırını geçerse aktar3 de aynısını yapın
evetHalit bey, merhabalar..
Anlamak adına bir sorum olacaktı. Aktar 1 de 64 adet kod bloku var, sanırım aktar 2 olan kısım , aktar 1'in devamı niteliğinde olacak şekilde ayarladınız. Aktar 2 de dolunca , aktar 3 ile devam edilecek değil mi? Yanlış anlamıyorum umarım.