Yandaki hücreleri otomatik doldurma

[Berglakin]

Herkese merhaba,
A1, B1, C1, D1, E1, F1, G1 hücrelerine daha önce bir değer girildiyse ; A2 hücresine (ve daha sonra gireceğim A.. hücreleri için) daha önce yazılmış bir değer girdiğimde yandaki hücreleri otomatik olarak nasıl doldurabilirim?

 

[Levent Menteşoğlu]

Herkese merhaba,
A1, B1, C1, D1, E1, F1, G1 hücrelerine daha önce bir değer girildiyse ; A2 hücresine (ve daha sonra gireceğim A.. hücreleri için) daha önce yazılmış bir değer girdiğimde yandaki hücreleri otomatik olarak nasıl doldurabilirim?

İstediğiniz ile ilgili bir resim ya da Excel dosyası eklermisiniz.

 

[Berglakin]

Ben örneğin '35 x 123' yazdığımda diğer sutunları da nasıl otomatik tamamlatabilirim?

 

[Berglakin]

Yardımcı olabilecek bir üstad var mı acaba?

 

[Berglakin]

Sanırım yardımcı olabilecek kimse yok, konu silinebilir!

 

[dEdE]

Merhaba,
Yardımcı olabilecek birileri vardır da, soru eksik gibi.
Siz, "... '35 x 123' yazdığımda diğer sutunları da" otomatik tamamlatmak için o bilgilerin bir yerlerde kayıtlı olması lazım. O yer neresidir?

 

[Berglakin]

Merhaba
Aynı tablodan, veri aynı tabloya daha önce girildiyse örneğin plaka, yandaki telefon numarası, isim vs otomatik yazılsın istiyorum. Araç kayıt formu olarak tutmak istiyoruz bu formu

 

[NBATMAN]

Merhaba,

bu işiniz tek bu sayfadan ve sadece bu verileri kaydetmekten mi? ibaret. Yoksa bu bir projenin bir kısmı mı?
biraz detay verebilir misiniz?

 

[Berglakin]

Merhaba,

bu işiniz tek bu sayfadan ve sadece bu verileri kaydetmekten mi? ibaret. Yoksa bu bir projenin bir kısmı mı?
biraz detay verebilir misiniz?

Merhaba, tek bu çalışma sayfasından ibaret olacak ve bu sayfaya sürekli veri girişi olacak.

 

[Cengiz Demir]

Tüm kayıtların (Plaka telefon vb.) olduğu veri listeniz varsa;
Düşeyara formülü ile istediğiniz yapılabilir.
Haa öyle bir liste yok. veri girdiğimiz listeye ekleme yaptıkça eklenmiş kayıtlardan arama yapıp verileri tamamlasın diyorsanız. O opey uğraştırır.

Merhaba, tek bu çalışma sayfasından ibaret olacak ve bu sayfaya sürekli veri girişi olacak.

 

[dEdE]

Merhaba,
Sayfanın kod bölümüne yapıştırarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    ss = Cells(Rows.Count, "A").End(3).Row - 1
    Aranan = Target.Value
    Set c = Range("A2:A" & ss).Find(Aranan, , xlValues)
    If Not c Is Nothing Then
        Range(Cells(c.Row, 2).Address, Cells(c.Row, 4).Address).Copy Cells(Target.Row, 2)
    Else
        MsgBox "Aradığınız kayıt bulunamadı.", vbInformation, "D İ K K A T !!!"
    End If
End If
End Sub

 

[Berglakin]

İlginiz için teşekkürler, Macro kısmına yapıştırdım ama maalesef olmadı:/

 

[dEdE]

İlginiz için teşekkürler, Macro kısmına yapıştırdım ama maalesef olmadı:/

Makrolar(Modül) kısmına değil, sayfanın kod kısmına yapıştıracaksınız.
Kodu hangi sayfada çalıştıracaksanız o sayfanın alt kısmında bulunan sayfa adının üzerine sağ tıklayınız. Açılan pencerede Kod Görüntüleye tıklayınız. Açılan sayfaya yapıştırınız.

Örnek Dosyayı aşağıdaki linkten indirebilirsiniz. (Bir hafta sonra silinir.)

Secure File Sharing - Filemail

Share files of any size, any format, any type, securely

www.filemail.com

 

[Berglakin]

Merhaba,
Yardımcı olabilecek birileri vardır da, soru eksik gibi.
Siz, "... '35 x 123' yazdığımda diğer sutunları da" otomatik tamamlatmak için o bilgilerin bir yerlerde kayıtlı olması lazım. O yer neresidir?

Merhaba,

bu işiniz tek bu sayfadan ve sadece bu verileri kaydetmekten mi? ibaret. Yoksa bu bir projenin bir kısmı mı?
biraz detay verebilir misiniz?

Merhaba,
Sayfanın kod bölümüne yapıştırarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    ss = Cells(Rows.Count, "A").End(3).Row - 1
    Aranan = Target.Value
    Set c = Range("A2:A" & ss).Find(Aranan, , xlValues)
    If Not c Is Nothing Then
        Range(Cells(c.Row, 2).Address, Cells(c.Row, 4).Address).Copy Cells(Target.Row, 2)
    Else
        MsgBox "Aradığınız kayıt bulunamadı.", vbInformation, "D İ K K A T !!!"
    End If
End If
End Sub

Makrolar kısmına değil, sayfanın kod kısmına yapıştıracaksınız.
Kodu hangi sayfada çalıştıracaksanız o sayfanın alt kısmında bulunan sayfa adının üzerine sağ tıklayınız. Açılan pencerede Kod Görüntüleye tıklayınız. Açılan sayfaya yapıştırınız.

Örnek Dosyayı aşağıdaki linkten indirebilirsiniz. (Bir hafta sonra silinir.)

Secure File Sharing - Filemail

Share files of any size, any format, any type, securely

www.filemail.com

Makrolar(Modül) kısmına değil, sayfanın kod kısmına yapıştıracaksınız.
Kodu hangi sayfada çalıştıracaksanız o sayfanın alt kısmında bulunan sayfa adının üzerine sağ tıklayınız. Açılan pencerede Kod Görüntüleye tıklayınız. Açılan sayfaya yapıştırınız.

Örnek Dosyayı aşağıdaki linkten indirebilirsiniz. (Bir hafta sonra silinir.)

Secure File Sharing - Filemail

Share files of any size, any format, any type, securely

www.filemail.com

Üstad çok çok teşekkür ederim, tam olarak buydu?herşey gönlünce olsun ?

 

[Berglakin]

son bir soru sorsam size F sutununa da daha önce forumda yazılmış olan


''Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F2:F2000]) Is Nothing Then Exit Sub
If Selection > 0 Then Exit Sub
If Target <> "" Then
Target.Offset(0, 1) = Date
End If
End Sub''

otomatik tarih kodunu nasıl ekleyebilirim ya da ekleyebilir miyim? Sizin verdiğiniz kodun altına yazdım ama hata verdi

 

[dEdE]

Dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A,F2:F2000")) Is Nothing Then
    If Target.Column = 6 Then
        Target.Offset(0, 1) = Date
        Exit Sub
    End If
    ss = Cells(Rows.Count, "A").End(3).Row - 1
    Aranan = Target.Value
    Set c = Range("A2:A" & ss).Find(Aranan, , xlValues)
    If Not c Is Nothing Then
        Range(Cells(c.Row, 2).Address, Cells(c.Row, 4).Address).Copy Cells(Target.Row, 2)
    Else
        MsgBox "Aradığınız kayıt bulunamadı.", vbInformation, "D İ K K A T !!!"
    End If
End If
End Sub

 

[Berglakin]

bir önceki kod çalışıyor ama tarih maalesef çıkmıyor

 

[dEdE]

Bende çalışıyor.

Secure File Sharing - Filemail

Share files of any size, any format, any type, securely

www.filemail.com

 

[Berglakin]

Bende F sutununa manuel olarak değer girdiğimde G sutununda çıkıyor. Şirkette dosyayı indiremedim maalesef evde indirip inceleyebileceğim ancak

 

[dEdE]

Bende F sutununa manuel olarak değer girdiğimde G sutununda çıkıyor.

Evet F sütununa herhangi bir veri girildiğinde, G sütununa tarih yazar. #15 numaralı mesajınızda paylaştığınız kod tam olarak bunu yapıyor. Ben isteğiniz doğrultusunda iki kodu birleştirdim.