izin talep formu

[muhammethezer]

Hayırlı akşamlar. Formda görüp ve Üzerinde bir iki değişiklik yapıp kullanmak istediğim bir program var. Program üzerine kendim bir adet “Rapor al” isimli buton ekledim ve “Personel izin talep formu” üzerindeki combobox’ dan “yıllık” veya ”mazeret” gibi seçim yapıldığında hangi “chekbox” seçilmiş ise açılan “Listbox” ta görünen verileri “rapor al” butonuna basıldığında listboxtaki verileri yazdırmasını nasıl sağlarım.Yardımlarınız için teşekkür ederim.

 

[udentr2002]

yanlış görmediysem eğer

commandbutton3 butonunuza yazdığınız kodlarda ' işareti ile başlayan yerler var bu işaretten sonrasını bilgisayar kod olarak görmez o işaret sadece programcının kendisi için açıklama yazacağı zaman kullandığı bir şeydir ama sizin kodunuzda bu işaret kodların önünde yer alıyor sanırım ondan dolayı hata veriyor olabilir aşağıdaki gibi düzeltip deneyin inşallah düzelir

Private Sub CommandButton3_Click()
If textbox4 = "Yıllık" Then
Sheets("YıllıkDetay").Select
Else
If textbox4 = "Mazeret" Then
Sheets("MazeretDetay").Select
Else
If textbox4 = "Hasta" Then
Sheets("HastaDetay").Select
Else
sat = detaylar.ListCount
sut = detaylar.ColumnCount
Sheets("sayfa2").Range("a1:" & Cells(sat, sut).Address) = detaylar.List
Sheets("sayfa2").PrintOut
End If
End Sub

 

[muhammethezer]

Compile Error:
Block If Without End If

 

[muhammethezer]

Compile Error:
Block If Without End If

hata mesajını veriyor.Yardımlarınız için teşekkür edeim.

 

[udentr2002]

birde böyle deneyin

Private Sub CommandButton3_Click()
If textbox4 = "Yıllık" Then
Sheets("YıllıkDetay").Select
ElseIf textbox4 = "Mazeret" Then
Sheets("MazeretDetay").Select
Exit Sub

ElseIf textbox4 = "Hasta" Then
Sheets("HastaDetay").Select
Exit Sub

Else
sat = detaylar.ListCount
sut = detaylar.ColumnCount
Sheets("sayfa2").Range("a1:" & Cells(sat, sut).Address) = detaylar.List
Sheets("sayfa2").PrintOut
End If
End Sub

 

[Tasarım]

Compile Error:
Block If Without End If

hata mesajını veriyor.Yardımlarınız için teşekkür edeim.

Bu hata mesajı blokun End İf ile bitmesi gerektiğini belirtiyor. Blokun sonuna "End Sub"dan önce End İf yazarsanız sorundan kurtulabilirsiniz.

 

[muhammethezer]

Private Sub CommandButton3_Click()
If textbox4 = "Yıllık" Then
Sheets("YıllıkDetay").Select
ElseIf textbox4 = "Mazeret" Then
Sheets("MazeretDetay").Select
Exit Sub

ElseIf textbox4 = "Hasta" Then
Sheets("HastaDetay").Select
Exit Sub

Else
sat = detaylar.ListCount
sut = detaylar.ColumnCount
Sheets("sayfa2").Range("a1:" & Cells(sat, sut).Address) = detaylar.List
Sheets("sayfa2").PrintOut
End If
End Sub

ilginize teşekkür ederim ama yukarıdaki yazılı olan kodlar sadece Yıllık Detay sayfasının filtreleme modunda açılmasını sağladı , benim istediğim listboxtaki verilerin rapor al dediğim zaman prınt etmesi oalcaktı.

 

[muhammethezer]

ilginize teşekkür ederim ama yukarıdaki yazılı olan kodlar sadece Yıllık Detay sayfasının filtreleme modunda açılmasını sağladı , benim istediğim listboxtaki verilerin rapor al dediğim zaman prınt etmesi oalcaktı.

MERHABA ÜSTTEKİ KONU HAKKINDA YARDIM RİCA EDECEKTİM.TEŞEKKÜR EDERİM.

 

[Zeynelsagcan]

end if hatası

Private Sub CommandButton3_Click()
If textbox4 = "Yıllık" Then
Sheets("YıllıkDetay").Select
Else
If textbox4 = "Mazeret" Then
Sheets("MazeretDetay").Select
Else
If textbox4 = "Hasta" Then
Sheets("HastaDetay").Select
Else

sat = detaylar.ListCount
sut = detaylar.ColumnCount
Sheets("sayfa2").Range("a1:" & Cells(sat, sut).Address) = detaylar.List
Sheets("sayfa2").PrintOut
End If
End If
End If

End Sub

bu şekilde olması gerekiyor kodun çalışması için

 

[muhammethezer]

yardımlarınız için teşekkür edrim

 

[muhammethezer]

izin talep Formu

Hayırlı Geceler Dileklerimle , İzin Mahiyeti ComboBox'tan yapılan seçimde , "Saatlik" seçeneğini seçteğimde "Hasta" sayfasında olduğu gibi "Saatlik" sayfasında hem geçmiş saatlik izin toplamlarını hemde saatlikSetay sayfasında kullanmış olduğu izinleri görmek için ilgili kısım kodunda nasıl bir makro değişikliği yapmayım.Teşekkür ederim.

 

[muhammethezer]

Hayırlı Geceler Dileklerimle , İzin Mahiyeti ComboBox'tan yapılan seçimde , "Saatlik" seçeneğini seçteğimde "Hasta" sayfasında olduğu gibi "Saatlik" sayfasında hem geçmiş saatlik izin toplamlarını hemde saatlikSetay sayfasında kullanmış olduğu izinleri görmek için ilgili kısım kodunda nasıl bir makro değişikliği yapmayım.Teşekkür ederim.

bir üstteki dosya için yardım rica edecekyim.

 

[muhammethezer]

izin talep Formu

Hayırlı akşamlar dileklerimle , Optıon Button'lardan örnek verirsem "yıllık" seçimi ; "İzin Detaylarını Göster " Açılan ListBox'tan da seçilen bilgiyi "SİL" buton'undan nasıl bir makroyla silebilirim.Yardımlarınız için çok teşekkür ederim.
"sil butonu şu anda tüm sayfadaki bilgileri siliyor "