DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
'1.karne
bul = WorksheetFunction.Match([d6], Sheets("Genel Notlar").[b:b])
For i = 9 To 20
t = t + 4
Sheets("Genel Notlar").Cells(bul, t) = Cells(i, "c")
Sheets("Genel Notlar").Cells(bul, t + 1) = Cells(i, "d")
Sheets("Genel Notlar").Cells(bul, t + 2) = Cells(i, "e")
Sheets("Genel Notlar").Cells(bul, t + 3) = Cells(i, "f")
Next
End Sub
Private Sub CommandButton1_Click()
'2.karne
bul = WorksheetFunction.Match([d6], Sheets("Genel Notlar").[b:b]) + 1
For i = 9 To 20
t = t + 4
Sheets("Genel Notlar").Cells(bul, t) = Cells(i, "c")
Sheets("Genel Notlar").Cells(bul, t + 1) = Cells(i, "d")
Sheets("Genel Notlar").Cells(bul, t + 2) = Cells(i, "e")
Sheets("Genel Notlar").Cells(bul, t + 3) = Cells(i, "f")
Next
End Sub