Yukarıdan Otomatik Kopyalama

[baydeniro]

Merhaba arkadaşlar. Bir dosyada tekrarlanması gereken verilerin makro ile olarak yukarıdan bir aşağıya kopyalanması mümkün mü ? Ekteki dosyada KAYIT sayfasında Tarih ve Bölge sütunları var. Şehir eklendikçe Tarih ve Bölge'nin bir aşağıya kopyalanması mümkün mü ? Örneğin BURSA yazıldığı zaman 01.01.2007 tarih ve Marmara bölgesinin aşağıya kopyalanması.

 

[zafer]

Merhaba


Yapılır fakat ,

1 -Bir sayfaya şehir ve bölge girseniz sonrada düşeyara ile bulunsa daha kolay olmazmı.

2 - B sütunundaki hücreye 1 önceki hücrenin adresini verebilirsiniz.
C3 Bursa ise
B3 hücresine =EĞER(C3="";"";B2) yazabilirsiniz.

3- Sizin isteğinize göre Ankara yazdığınızda Bölgeye Marmara gelir.O zaman ne olacak.

 

[Korhan Ayhan]

Selamlar,

Eğer sayfada sadece bir bölgeyi kullanacaksanız aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D2:D65536]) Is Nothing Then Exit Sub
    If InStr(1, Target.Address, ":") <> 0 Then Exit Sub
    If Not IsEmpty(Target) Then
    Cells(Target.Row, 1) = WorksheetFunction.Max([A:A]) + 1
    Cells(Target.Row, 2) = Cells(Target.Row - 1, 2)
    Cells(Target.Row, 3) = Cells(Target.Row - 1, 3)
    Else
    Cells(Target.Row, 1) = ""
    Cells(Target.Row, 2) = ""
    Cells(Target.Row, 3) = ""
    End If
End Sub

Eğer farklı bölgeler kullanabilirim derseniz Sn. zafer beyin 1. önerisi sizin için daha faydalı olacaktır.

 

[baydeniro]

Sayın Zafer ilginiz için çok teşekkür ederim. Durum gereğince makrolu çözüm gerekiyor.

Her ne kadar dosyadaki Bölge ve Şehir ilişkisi sembolik anlam taşısa da kullanıcının programı yanlış kullanımı onun sorunu oluyor neticede. Buradaki beklenti bilgiler arasındaki ilişkinin doğruluğundan ziyade düz olarak yukarıdaki verinin aşağıya kopyalanması.

 

[baydeniro]

Teşekkürler

Sayın Cost Control yardımınız için çok teşekkürler. Bu kodu şu şekilde revize edebilir miyiz. Başka bir bölge yazmamıza rağmen yine de bir yukarıdakini yeni bölge adının üstüne kopyalıyor. Kodun Tarih ve Bölge değişmesine duyarlı olması mümkün mü ?

 

[Korhan Ayhan]

Selamlar,

Kodu aşağıdaki şekilde değiştirip denermisiniz. Tarih ve Bölge alanı boş ise bir üstteki satırı aşağı aktaracaktır. Değilse hiçbir değişiklik yapmayacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D2:D65536]) Is Nothing Then Exit Sub
    If InStr(1, Target.Address, ":") <> 0 Then Exit Sub
    If Not IsEmpty(Target) Then
    Cells(Target.Row, 1) = Target.Row - 1
    Cells(Target.Row, 2) = IIf(Cells(Target.Row, 2) = "", Cells(Target.Row - 1, 2), Cells(Target.Row, 2))
    Cells(Target.Row, 3) = IIf(Cells(Target.Row, 3) = "", Cells(Target.Row - 1, 3), Cells(Target.Row, 3))
    Else
    Cells(Target.Row, 1) = ""
    Cells(Target.Row, 2) = ""
    Cells(Target.Row, 3) = ""
    End If
End Sub

 

[zafer]

Merhaba

Sn.Korhan beyin ve benim bahsettiğim konu verilerin yanlış gelmesi ile ilgiliydi.

Aşağıdaki linkteki yaz.xls dosyası gibi hazırlayabilirsiniz veya bir önceki konunuzdaki (Makro düşeyara) kodları teke indirebilirsiniz.
elma yazınca elmanın fiyatını armut yazınca armutun fiyatını yazsın