ynmcan
Altın Üye
- Katılım
- 30 Ağustos 2008
- Mesajlar
- 677
- Excel Vers. ve Dili
- 2010 türkçe
- Altın Üyelik Bitiş Tarihi
- 29-05-2025
Merhaba arkadaşlar;
Vardiya servisi programı yapmaktayım.
Combobox1 ile seçtiğim personel bilgilerini ilgili Textboxlara (5 adet) aktarmaktayım.
Kaydet butonuyla textboxlardaki personel bilgilerini, Combobox2 de seçtiğim servis numarasına göre Vardiya1 sayfasındaki ilgili servis çizelgesine aktarıp sıra numarası vermekteyim.
Aktarma ve sıra numarası için Combobox2 de seçtiğim her servis numarası için aynı kodu If – Then yapısı ile aşağıdaki gibi kullanmaktayım.
20 servis (servisler çoğalabilir) için bu kodları hücre referanslarını değiştirerek tek tek yamaktayım.
Bu işlemi aktarma ve sıra numarası için birer kod ile yapabilir miyiz?
Her servis çizelgesi arası +34 satır.
Örnek dosyam ekte
Vardiya servisi programı yapmaktayım.
Combobox1 ile seçtiğim personel bilgilerini ilgili Textboxlara (5 adet) aktarmaktayım.
Kaydet butonuyla textboxlardaki personel bilgilerini, Combobox2 de seçtiğim servis numarasına göre Vardiya1 sayfasındaki ilgili servis çizelgesine aktarıp sıra numarası vermekteyim.
Aktarma ve sıra numarası için Combobox2 de seçtiğim her servis numarası için aynı kodu If – Then yapısı ile aşağıdaki gibi kullanmaktayım.
Kod:
If UserForm1.ComboBox2.Value = 1 Then
sat = ActiveSheet.Cells(36, "C").End(xlUp).Row + 1
'aktarma kodu
For i = 1 To 5
ActiveSheet.Cells(sat, i + 2).Value = UserForm1.Controls("Textbox" & i).Value
Next i
'sıra numarası kodu
With ActiveSheet.Range("B6:B36")
.Formula = "=IF(C6<>"""",MAX($B$5:B5)+1,"""")": .Value = .Value
End With
End If
Bu işlemi aktarma ve sıra numarası için birer kod ile yapabilir miyiz?
Her servis çizelgesi arası +34 satır.
Örnek dosyam ekte
Ekli dosyalar
-
64.6 KB Görüntüleme: 4