HÜCRE DOLDURMA ve AÇILIŞ İŞLEMLERİ

[katip16487]

Merhabalar...
Muhtemelen isteyeceğim tarz bilgileri içeren konu sitede mutlaka vardır... Ancak aradım ve bulamadım...

Excell uygulaması ile ilgili basit bir çalışmam var...

Tüm her şeyi bitirmek üzere gibiyim...

Ancak dosyamda birkaç şey yapmak istiyorum...

Birincisi; dosya açılışında "Hoşgeldiniz, hazırlayan Ad Soyad" yazan bir uyarı penceresi şeklinde benim tabirimle textbox...

İkincisi; dosya kapanışında "İyi günler, hazırlayan Ad Soyad" yazan bir uyarı penceresi şeklinde textbox...

Üçüncüsü ve aslında diğerleri olmasa bile bunun olması benim için daha önemli.

Hazırladığım dosyada E sütununa (E130 hücresine kadar) tarihler giriyorum... Ancak tüm hücrelere tarih girmediğim oluyor... Örneğin E1, E7 ve E18 hücresine tarih giriyorum... Tarih verilerini girdiğimde girdiğim hücreden önceki ilk dolu hücreye kadar son girdiğim hücredeki veriyi aktarmasını istiyorum...
Yani E1 dolu iken E7 hücresine veri girildiğinde E2 ile E6 hücrelerine E7 hücresindeki tarihin aktarılmasını, yine E18 hücresine veri girdiğimde ise E8 ile E17 hücrelerine E18 hücresindeki veriyi girmesini istiyorum...

Tüm arkadaşlara yardımları için teşekkür ederim...

Cevaplarınızı ayrıca ahmetrevankula@gmail.com mail adresime de gönderebilirseniz sevinirim...

Saygılarımla....

 

[Korhan Ayhan]

Merhaba,

Dosyanıza açılış ve kapanış mesajı eklemek için aşağıdaki kodları boş bir modüle uygulayın.

Sub Auto_Open()
    MsgBox "HOŞGELDİNİZ..." & Chr(10) & Chr(10) & _
           "Hazırlayan : Korhan AYHAN", vbInformation
End Sub
 
Sub Auto_Close()
    MsgBox "İYİ GÜNLER..." & Chr(10) & Chr(10) & _
           "Hazırlayan : Korhan AYHAN", vbInformation
End Sub

E sütununa veri girişini elle yaptığınızı varsayıyorum. Çünkü nasıl girdiğinizi belirtmemişsiniz.
İşlemi yaptığınız sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Satır As Integer
    If Intersect(Target, Range("E1:E130")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target <> "" Then
        Satır = Target.End(3).Row + 1
        If Satır >= Target.Row Then Exit Sub
        If Cells(Satır, Target.Column) = "" Then
            Range(Cells(Satır, Target.Column), Cells(Target.Row - 1, Target.Column)) = CDate(Target)
            Range("E1:E130").NumberFormat = "dd.mm.yyyy"
        End If
    End If
End Sub

Uygulamada zorlanırsanız ekteki örnek dosyayıda inceleyebilirsiniz.

 

[katip16487]

Merhabalar... Öncelikle vermiş olduğunuz kodlar çok işime yaradı.
Ancak, ilk başta herhangi bir hata vermez iken, şu anda kodun çalışması için hücreye veri girdiğimde hata vermeye başladı.

Hatayı kontrol etmek için DEBUG dediğimde ise;

Range("E1:E130").NumberFormat = "dd.mm.yyyy"

satırının sarı renge büründüğünü ve hatanın buradan kaynaklandığını anladım... Ancak çözümü bulamıyorum....

Dosyamı ekte sunuyorum...
Hatayı Veri_Girme sayfasında J sütununda J12:J130 arasında formül tanımlaması yapmıştım, burada hata yapıyor...


Yardım ederseniz sevinirim... Saygılarımla...




ARKADAŞLAR SORUN KENDİLİĞİNDEN ÇÖZÜLDÜ ŞİMDİLİK....