Kod:
.Range("C6").Value = mod_veribul.veriAl
Ayrıca .Range("L" & son).Value = mod_veribul.veriAl yazılsa C6 hücresine veri almayada gerek yok.Daha doğrusu result sayfasının bc2,c4 ve c6 yeda gerek yok onlarda kodla yapılabilirdi.Videodaki kadın zaten gereksiz şeylerle uğraşmış
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
Sub sonsatirResult(son As Long, syf As String)
With ThisWorkbook.Sheets(syf)
.Range("A" & son).Value = .Range("B2").Value
.Range("B" & son).Value = .Range("C2").Value
.Range("G" & son).Value = .Range("C4").Value
.Range("C6").Value = mod_veribul.veriAl
.Range("L" & son).Value = .Range("C6").Value
Dim ara As Range
Set ara = Sayfa1.Range("A:A").Find(Sayfa4.Range("A10").Value, , , 1)
If Not ara Is Nothing Then
If ara.Offset(, 1).Value = mod_veribul.veriAl Then
.Range("Q" & son).Value = 1
Else
If mod_veribul.veriAl = "" Then
.Range("Q" & son).Value = "Bos"
Else
.Range("Q" & son).Value = 0
End If
End If
End If
End With
mod_veribul.veriAl = ""
Set ara = Nothing
End Sub
(25/05/2021, 22:08)feraz yazdı: mod_veribul.veriAlyerine
Kod:
veriAl