SİL MAKROSU

[üveyin]

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

 

[maliex]

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

Sheets("İzin Formu").Cells(10, "e").clear
Sheets("İzin Formu").Cells(15, "e").clear
Sheets("İzin Formu").Cells(17, "e").clear
End Sub

 

[üveyin]

maliex, merhabalar verdiğiniz kod işe yaradı ama benim söylemeyi unuttuğum bir kısım var galiba E10 daki hücrede veri doğrulamadan veri çekiyorum bu kod veri doğrulamayıda siliyor & hücredeki yazı rengi değişiyori ve kenar çizgileride kaldırıyor galiba emeğinize sağlık teşekkür ederim şimdiden

 

[haliliyas]

.clear yerine .clearcontenents kodunu dener misiniz?

 

[üveyin]

haliliyas merhabalar,
hata veriyor.

 

[maliex]

Sheets("İzin Formu").Cells(10, "e").ClearContents
Sheets("İzin Formu").Cells(15, "e").ClearContents
Sheets("İzin Formu").Cells(17, "e").ClearContents

 

[üveyin]

maliex çok teşekkür ederim