Memur yıllık izin belgesi macro hata veriyor

[zehnisağcan]

Merhaba sevgili hocalarım ben bu çalışmayı form sayesinde yapmıştım şimdi exel deki form değiştiğinden dolayı yeniden düzenlemek istedim ama macro hata veriyor bakabilirmisiniz.

Birde bu tabloda izin formu düzenlendiğinde izin kartına işlendiği zaman kişinin kalan izini data daki kalan izin e işlemesine de bi bakabilirmisiniz

teşekür ederim şimdiden

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Option Explicit
Sub Ekle()
[B]Dim s As Worksheet
Dim sat As Integer
[/B]Set s = Sheets("İZİN")
sat = s.[b65536].End(3).Row + 1
s.Cells(sat, "a") = [c13]
s.Cells(sat, "b") = [c10]
s.Cells(sat, "g") = [c15]
s.Cells(sat, "f") = Format([c18], "dd.mm.yyyy")
s.Cells(sat, "e") = Format([c16], "dd.mm.yyyy")
MsgBox "İşlendi"
Sheets("FORM").Select
ActiveWindow.SelectedSheets.PrintOut copies:=2, collate:=True
End Sub

 

[zehnisağcan]

Set s = Sheets("İZİN")

satırında hata veriyor hocam

teşekür ederim

 

[zehnisağcan]

yine aynı şekilde hata verdi hocam 9 satır diyor

 

[Necdet]

Set s = Sheets("İZİN")

satırında hata veriyor hocam

teşekür ederim

bu satırı silip yeniden yazın. Benim klavyem bir garip, Türkçe yazıyorum ama Türkçe değil

 

[halit3]

yine aynı şekilde hata verdi hocam 9 satır diyor

izin sayfasının adını silip yeniden yazınız hata orada

Sub Ekle()
yer = "İZİN"
sat = WorksheetFunction.CountA(Worksheets("İZİN").Range("b2:b65000")) + 2
Worksheets(yer).Cells(sat, "a") = [c13]
Worksheets(yer).Cells(sat, "b") = [c10]
Worksheets(yer).Cells(sat, "g") = [c15]
Worksheets(yer).Cells(sat, "f") = Format([c18], "dd.mm.yyyy")
Worksheets(yer).Cells(sat, "e") = Format([c16], "dd.mm.yyyy")
MsgBox "İşlendi"
Sheets("FORM").Select
ActiveWindow.SelectedSheets.PrintOut copies:=2, collate:=True
End Sub

 

[zehnisağcan]

Teşekür ederim hocam savolun hallettim

 

[zehnisağcan]

Hocam yalnız izin sayfasında işlendiği zaman kalan izin sayısını data sayfasında ki gibi güncel vermiyor her işlediğini düsüyor sahsın kalan

sorunum sadece izin sayfasında sıralama yapması ve sıralama yaptıkdan sonra şahsın izin sayfasında en son satırına kalan izin miktarını yazdırmak

sıralandıkdan sonra aşağıdaki gibi
zehni30-1=29
zehni30-5=24
ahmet30-1=29
ahmet30-6=23 gibi

teşekür ederim