• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

A

aptillah

Katılım
24 Ocak 2010
Mesajlar
138
Excel Vers. ve Dili
2010 türkçe
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ü.
 
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.
.
 
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?
.
Kod: 
[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]
 
Son düzenleme:
Bir önceki cevabımda değişiklik yaptım, sayfyı yenileyerek tekrar kontrol ediniz.
 
Ö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
 
Yeni isteğinize göre, önceki cevabımdaki kod'u tekrar güncelledim.
Sayfayı yenileyerek tekrar kontrol edin.
 
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.
 
Tekrar merhaba.
Umarım yanlış anlamadım.
ÖNceki cevabımdaki kod'u değiştirdim, sayfayı yenileyerek kontrol edin.
 
ö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?
 
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.
.
 
Estağfurullah, örnek belgede deneme yapamadan halledebildiğime sevindim.
İyi günler dilerim.
 
Ömer hocam forum kirliliği olmaması adına buraya yazıyorum
Kod: 
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)
 
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.
Kod: 
[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]
 
Son düzenleme:
Sayfayı yenileyerek son cevabıma tekrar bakın isterseniz.
İlave yapmıştım.
 
=+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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst