dolu hücrelerden sonraki ilk boş hücreden itibaren veri akta

[gunaygergin]

Arkadaşlar Acaba dosyada giriş ekranındaki bilgileri

ismini seçtiğim kişinin "yıllık izin listesi" sayfasındaki sırasına dolu hücrelerden sonraki ilk boş hücreden başlayarak yazdırabilirim
yani kişi iznini 3 parçada kullanacak diyelim.
3 adet tarih aralığı olması lazım. Her defasında acaba nasıl gerekli haneye yazdırabilirim. yardımcı olursanız çok sevinirim.

 

[hamitcan]

Eki inceleyin

 

[gunaygergin]

Sn hamitcan; ilgi ve alakanıza teşekkür ederim.

çalışmanız çok güzel. Ama acaba parça numarası girmeden otomatik ilk boş parçayı algılatma imkanımız yokmu. hani her defasında o sayfaya ve o isme gitme gerği duymama açısından.

 

[hamitcan]

Atacı güncelledim, birkaç formül ekledim ama örneği deneme fırsatım olmadı, eksiği varsa bakarız.

 

[gunaygergin]

sn hamitcan harikasınıııız.........

 

[gunaygergin]

Acaba parça sayısı 4 ten fazla olursa yani 6,9 gibi o zaman aşağıdaki kodlar nasıl değiştirilmeli acaba. aynı şekilde çoğaltıyorum ancak 4 ten fazla yapmıyor.

acaba sorun dolaylı fonksiyonu ile mi ilgili


Private Sub CommandButton1_Click()
KACINCI = WorksheetFunction.Match(Sayfa1.[b4], Sayfa2.[B3:B50], 0)
If [C9] = 1 Then
Sayfa2.Cells(KACINCI + 2, 3) = Sayfa1.[C6]
Sayfa2.Cells(KACINCI + 2, 4) = Sayfa1.[C7]
Sayfa2.Cells(KACINCI + 2, 5) = Sayfa1.[C8]
ElseIf [C9] = 2 Then
Sayfa2.Cells(KACINCI + 2, 6) = Sayfa1.[C6]
Sayfa2.Cells(KACINCI + 2, 7) = Sayfa1.[C7]
Sayfa2.Cells(KACINCI + 2, 8) = Sayfa1.[C8]
ElseIf [C9] = 3 Then
Sayfa2.Cells(KACINCI + 2, 9) = Sayfa1.[C6]
Sayfa2.Cells(KACINCI + 2, 10) = Sayfa1.[C7]
Sayfa2.Cells(KACINCI + 2, 11) = Sayfa1.[C8]
ElseIf [C9] = 4 Then
Sayfa2.Cells(KACINCI + 2, 12) = Sayfa1.[C6]
Sayfa2.Cells(KACINCI + 2, 13) = Sayfa1.[C7]
Sayfa2.Cells(KACINCI + 2, 14) = Sayfa1.[C8]
End If
End Sub

 

[gunaygergin]

lütfen yardımcı olun....

 

[gunaygergin]

LÜTFEN YARDIMCI OLUR MUSUNUZ.

Acaba parça sayısı 4 ten fazla olursa yani 6,9 gibi o zaman aşağıdaki kodlar nasıl değiştirilmeli acaba. aynı şekilde çoğaltıyorum ancak 4 ten fazla yapmıyor.

acaba sorun dolaylı fonksiyonu ile mi ilgili


Private Sub CommandButton1_Click()
KACINCI = WorksheetFunction.Match(Sayfa1.[b4], Sayfa2.[B3:B50], 0)
If [C9] = 1 Then
Sayfa2.Cells(KACINCI + 2, 3) = Sayfa1.[C6]
Sayfa2.Cells(KACINCI + 2, 4) = Sayfa1.[C7]
Sayfa2.Cells(KACINCI + 2, 5) = Sayfa1.[C8]
ElseIf [C9] = 2 Then
Sayfa2.Cells(KACINCI + 2, 6) = Sayfa1.[C6]
Sayfa2.Cells(KACINCI + 2, 7) = Sayfa1.[C7]
Sayfa2.Cells(KACINCI + 2, 8) = Sayfa1.[C8]
ElseIf [C9] = 3 Then
Sayfa2.Cells(KACINCI + 2, 9) = Sayfa1.[C6]
Sayfa2.Cells(KACINCI + 2, 10) = Sayfa1.[C7]
Sayfa2.Cells(KACINCI + 2, 11) = Sayfa1.[C8]
ElseIf [C9] = 4 Then
Sayfa2.Cells(KACINCI + 2, 12) = Sayfa1.[C6]
Sayfa2.Cells(KACINCI + 2, 13) = Sayfa1.[C7]
Sayfa2.Cells(KACINCI + 2, 14) = Sayfa1.[C8]
End If
End Sub

 

[tevfikdemir]

Sevgili gunaygergin

syn hamitcanın yaptığı dosyada istediğiniz değişiklik yapılmıştır.Kodu inceleyin lütfen

Saygılar

 

[hamitcan]

Sn gunaygergin,
Yoğun olduğumdan dolayı son sorunuzu cevaplayamadım, eski kodu silerek yenisini deneyebilir misiniz ?

[vb:1:b1a5f87e15]
Private Sub CommandButton1_Click()
KACINCI = WorksheetFunction.Match(Sayfa1.[b4], Sayfa2.[B3:B50], 0) + 2
DOLUSAY = WorksheetFunction.CountA(Sayfa2.Range("b" & KACINCI, "Z" & KACINCI)) + 2

Sayfa2.Cells(KACINCI, DOLUSAY) = Sayfa1.[C6]
Sayfa2.Cells(KACINCI, DOLUSAY + 1) = Sayfa1.[C7]
Sayfa2.Cells(KACINCI, DOLUSAY + 2) = Sayfa1.[C8]
Sayfa1.[C9] = DOLUSAY / 3 + 1
End Sub
[/vb:1:b1a5f87e15]