Aktif hücreye ve yanındaki hücreleri veri girişi

[aptillah]

merhabalar,

Bir userform üzerinden veri girişi yaptırıyorum otel programı için . Yardım istediğim konu textbox4 te misafirin kaç gece kalacağı yazıyor.
örnek olarak aktif hücreye tıkladığımda kayıt yaptıktan sonra textbox4 te "5" yazıyor ise sag yanındaki hücreden başlayıp 4 gece daha kopyalaması eğer hücreler dolu ise uyarı vermesini istiyorum bunu yapabilmek mümkünmü.

 

[Ömer BARAN]

Merhaba.

Örnek belge yok, kullanılan kodlar yok.
Cevabımın altındaki İMZA bölümünde yer alan açıklamalara göre
hazırlayacağınız bir örnek belge eklerseniz, daha hızlı ve kesin çözüme ulaşacağınızı düşünüyorum.
.

 

[aptillah]

http://s2.dosya.tc/server2/b68lh9/abdullah-rezervasyonlar_-_Kopya.rar.html
Dosya linkini ekledim

 

[Ömer BARAN]

Tekrar merhaba.

Userform olayları ile ilgili olarak pek tecrübem yok.
Ayrıca, bilgisayarımda DTPicker yüklü değil ve eklediğiniz örnek belgede de ClassModül içeriği boş.

Umarım yanlış anlamadım.
UserForm2 üzerindeki KAYDET düğmesine ait kodları aşağıdakiyle değiştirerek dener misiniz?
.

[FONT="Arial Narrow"][B][COLOR="Blue"]Private Sub CommandButton1_Click()[/COLOR][/B]
If TextBox4 = "" Then Exit Sub
    ilk = ActiveCell.Column: yazılan = 0
        For sütun = 1 To (0 + TextBox4.Value)
            If Cells(ActiveCell.Row, ilk + sütun - 1) <> "" Then
                MsgBox Format(Cells(1, ilk + sütun - 1), "dd/mm/yyyy") & " Günü için zaten bir kayıt var." & vbLf & _
                    "İlgili gün için değişiklik yapılmadı.", vbInformation, "H A T A": GoTo 10
                    End If
                yazılan = yazılan + 1
            Cells(ActiveCell.Row, ilk + sütun - 1) = TextBox1 & " " & TextBox2 & " " & TextBox3 & " " & ComboBox1 & " " & Format(DTPicker1.Value, "dd/mm") & " " & TextBox4 & " GECE " & ComboBox2 & " " & ComboBox3 & " " & TextBox5
        Next
10
    Unload Me
If yazılan > 0 Then MsgBox yazılan & " gün için kayıt yapıldı."
[B][COLOR="blue"]End Sub[/COLOR][/B][/FONT]

 

[Ömer BARAN]

Bir önceki cevabımda değişiklik yaptım, sayfyı yenileyerek tekrar kontrol ediniz.

 

[aptillah]

Ömer hocam yardımınız için teşekkürler istediğim gibi kayıt yapıyor fakat sağa doğru kayıt yaparken eğer dolu hücre var ise kayıt yapmasın uyarı versin istiyorum

 

[Ömer BARAN]

Yeni isteğinize göre, önceki cevabımdaki kod'u tekrar güncelledim.
Sayfayı yenileyerek tekrar kontrol edin.

 

[aptillah]

Hocam gerçekten çok teşekkür derim yapmaya çalıştım ama beceremedim. Eğer dolu hücre var ise ileriye doğru hiç kayıt yapamasın sadece aktif hücreye kaydı yapıp bıraksın istiyorum.

 

[Ömer BARAN]

Tekrar merhaba.
Umarım yanlış anlamadım.
ÖNceki cevabımdaki kod'u değiştirdim, sayfayı yenileyerek kontrol edin.

 

[aptillah]

çok teşekkürler emeğinize sağlık tam istediğim gibi oldu.

 

[aptillah]

ömer hocam aklıma bir soru daha takıldı Userform üstüne bir label ekleyip hangi odaya kayıt yaptığımızı orada görebilirmiyiz?

 

[Ömer BARAN]

Eğer oda numarası dediğiniz,
-- ilgili satır A sütunundaki birleştirilmiş metin olan verinin tamamı ise;
Label1.Caption = Cells(Activecell.Row, 1)
-- ilgili satır A sütunundaki birleştirilmiş metnin sadece soldan üç karakteri ise;
Label1.Caption = Mid(Cells(Activecell.Row, 1), 1, 3)
şeklinde olabilir.
.

 

[aptillah]

teşekkürler hocam oldu

 

[Ömer BARAN]

Estağfurullah, örnek belgede deneme yapamadan halledebildiğime sevindim.
İyi günler dilerim.

 

[aptillah]

Ömer hocam forum kirliliği olmaması adına buraya yazıyorum

Label1.Caption = Cells(Activecell.Row, 1

)
bu kodla A sütunundaki verileri görüyorum. İstediğim aktif satırın en üstünde ki satırda yani 1. satırında ne yazıyor onu görmek(1. satırlarda tarihler var)

 

[Ömer BARAN]

Tekrar merhaba.

Aşağıdaki kod satırlarını ayrı ayrı deneyip istediğiniz sonucu veren hangisi ise onu kullanırsınız.
Label1 sütunun 1'inci satırındaki tarihi gösterir. Veri tarih değilse boş sonuç verir.

[FONT="Arial Narrow"]If IsDate(Cells(1, ActiveCell.Column)) = True Then
    [COLOR="Blue"]Label1.Caption = CDate(Cells(1, ActiveCell.Column))[/COLOR]
    [COLOR="Red"]Label1.Caption = Format(Cells(1, ActiveCell.Column), "dd/mm/yyyy")[/COLOR]
Else
    Label1.Caption = ""
End If
[/FONT]

 

[aptillah]

çok teşekkür ederim

 

[Ömer BARAN]

Sayfayı yenileyerek son cevabıma tekrar bakın isterseniz.
İlave yapmıştım.

 

[aptillah]

saolun yardımınız için sayenizde düzgün bir program oldu

 

[aptillah]

=+EĞERSAY(B6:CR23;"") hocam boş satırları bulmak için bu formülü kullanmak istedim fakat hesaplama yapmıyor satırda formül normal veri gibi duruyor. excel ayarlarında da bir sorun gözükmüyor. formül olan satırı kopyalarsam çalışıyor ama ben yazarsam çalışmıyor