üveyin
Altın Üye
- Katılım
- 24 Nisan 2022
- Mesajlar
- 115
- Excel Vers. ve Dili
- 2016 tr
- Altın Üyelik Bitiş Tarihi
- 24-04-2027
Merhabalar,
Aşağıdaki makro İzin Formu adındaki sayfamdan izin arşiv sayfama kayıt işlemi sonrasında (E10-E15-E17) hücrelerinindeki verilerin silinmesi için bu kodun içine sil ile ilgili bir makro yazılabilir mi acaba? şimdiden teşekkürler.
Sub Düğme2_Tıkla()
Dim son
Dim arsiv
Dim giris
Set arsiv = Sheets("izin arşiv")
Set giris = Sheets("İzin Formu")
son = Sheets("izin arşiv").Cells(Rows.Count, 1).End(3).Row + 1
Sheets("izin arşiv").Cells(son, 1).Value = Sheets("İzin Formu").Cells(10, "e").Value
Sheets("izin arşiv").Cells(son, 2).Value = Sheets("İzin Formu").Cells(11, "e").Value
Sheets("izin arşiv").Cells(son, 7).Value = Sheets("İzin Formu").Cells(12, "e").Value
Sheets("izin arşiv").Cells(son, 8).Value = Sheets("İzin Formu").Cells(13, "e").Value
Sheets("izin arşiv").Cells(son, 3).Value = Sheets("İzin Formu").Cells(15, "e").Value
Sheets("izin arşiv").Cells(son, 6).Value = Sheets("İzin Formu").Cells(19, "e").Value
Sheets("izin arşiv").Cells(son, 5).Value = Sheets("İzin Formu").Cells(18, "e").Value
Sheets("izin arşiv").Cells(son, 4).Value = Sheets("İzin Formu").Cells(17, "e").Value
End Sub
Aşağıdaki makro İzin Formu adındaki sayfamdan izin arşiv sayfama kayıt işlemi sonrasında (E10-E15-E17) hücrelerinindeki verilerin silinmesi için bu kodun içine sil ile ilgili bir makro yazılabilir mi acaba? şimdiden teşekkürler.
Sub Düğme2_Tıkla()
Dim son
Dim arsiv
Dim giris
Set arsiv = Sheets("izin arşiv")
Set giris = Sheets("İzin Formu")
son = Sheets("izin arşiv").Cells(Rows.Count, 1).End(3).Row + 1
Sheets("izin arşiv").Cells(son, 1).Value = Sheets("İzin Formu").Cells(10, "e").Value
Sheets("izin arşiv").Cells(son, 2).Value = Sheets("İzin Formu").Cells(11, "e").Value
Sheets("izin arşiv").Cells(son, 7).Value = Sheets("İzin Formu").Cells(12, "e").Value
Sheets("izin arşiv").Cells(son, 8).Value = Sheets("İzin Formu").Cells(13, "e").Value
Sheets("izin arşiv").Cells(son, 3).Value = Sheets("İzin Formu").Cells(15, "e").Value
Sheets("izin arşiv").Cells(son, 6).Value = Sheets("İzin Formu").Cells(19, "e").Value
Sheets("izin arşiv").Cells(son, 5).Value = Sheets("İzin Formu").Cells(18, "e").Value
Sheets("izin arşiv").Cells(son, 4).Value = Sheets("İzin Formu").Cells(17, "e").Value
End Sub