*TEXTBOX a YAZILAN DEĞERİN TARİHE GÖRE FARKLI BİR HÜCREYE ATANMASI

[burak80li]

*ÇÖZÜLDÜ.*TEXTBOX a YAZILAN DEĞERİN TARİHE GÖRE FARKLI BİR HÜCREYE ATANMASI

TEXTBOX a YAZILAN DEĞERİN TARİHE GÖRE FARKLI BİR HÜCREYE ATANMASI

Userformda mesela 14.10.2008 tarihinde yapılan işlerin sayısı işlenecek. Diyelim ki telefon görüşme yapma sayısı karşısındaki textboxa yazılan rakamsal değer R33 hücresine, yıllık izin kaydı S33 e, cihaz kaydı t33 e atanacak. Bu diğerlerinin hepsinde böyle olacak. Başka bir tarih yazdığımızda ise o tarihin karşısındaki yapılan işe havale olacak. diyelim ki 20.10.2008 yaptık bu sefer r39, s39, t39,u 39 vs vs diye textbox a yazılanı oraya atacak.
Teker teker if then else döngüsüyle şu tarihte olursa şu hücreye, bu tarihte olursa bu hücreye şeklinde olmayacaktır sanırım. Zira bu şekilde çok zor olur.
Yardımcı olursanız çok sevinirim.

not: Yeni başlayanlar kısmında da sordum ama 3 gündür cevap alamadım. Basit değil çok galiba.

 

[burak80li]

Yine kendin pişir kendin ye usulü hallettim problemimi . Sitedeki son 3-4 sorumu kendim cevapladım ya
Çözüm aşağıda

Private Sub CommandButton1_Click()
On Error Resume Next
Dim i, x, y As Integer
For i = 29 To 3935
If Calendar1.Value = Range("A" & i).Value Then '-----Eğer takvimden girilen tarih A sütundaki tarihler arasında bulunuyorsa
Range("R" & i).Select
For x = 0 To 18
y = x + 1
ActiveCell.Offset(0, x) = Controls("TextBox" & y).Value '-- aktif hücrenin 0 sütun aşağısı, 1,2,...18 yanına sırasıyla textboxlardaki değerleri giriyoruz.

Next
End If
Next
End Sub

İşine yarayan olursa kullansın.. İyi çalışmalar herkese..