Hücre Değerlerini Başka Sayfaya Almak

[polis]

Arkadaşlar merhaba, Ekteki dosyada Efomi sayfasında benim açılacak olan restoranlarımın bilgileri bulunmaktadır. Ama farklı 3 marka vardır."EFOMİ" sayfasındakli Açılması beklenen "CD" markasına ait bilgilerin "2008 yılı Acılacak CD" sayfasına otomatik olarak almasını,aynı şekilde diğer markalara ait bilgilerinde kendi sayfalarına almasını sağlayabilirmiyiz? Bu olasılıklar olduktan sonra yani bahsettiğim şey yapılabilirse eğer son olarakta açılış tarihi geçmiş olan restoranların sadece "EFOMİ" sayfasında gözükmesini kendine ait olan "CD,MD yada YB" sayfasında bilgilerin yer almamasını istiyorum.

Şimdiden ilgilendiğiniz için çok teşekkür ederim.

Saygılarımı Sunar İyi Çalışmalar Dilerim

 

[polis]

Acil olarak yanıtlayabilecek birisi varmı?

Teşekkürler

 

[Ayhan Ercan]

Merhaba Sn polis

Ek Dosyayı İnceleyiniz...

Private Sub CommandButton1_Click()
Dim son As Long, i As Long
son = Sayfa1.[a65536].End(3).Row
    For i = 5 To son
        If Cells(i, 5) = "" Then GoTo 10
        If Cells(i, 5) = "CD" Then
        Range("B" & i & ":J" & i).Copy Sayfa2.Range("B" & Sayfa2.[b65536].End(3).Row + 1)
        End If
10  Next
    For i = 5 To son
        If Cells(i, 6) = "" Then GoTo 20
        If Cells(i, 6) = "MD" Then
        Range("B" & i & ":J" & i).Copy Sayfa3.Range("B" & Sayfa3.[b65536].End(3).Row + 1)
        End If
20  Next
    For i = 5 To son
        If Cells(i, 7) = "" Then GoTo 30
        If Cells(i, 7) = "YB" Then
        Range("B" & i & ":J" & i).Copy Sayfa4.Range("B" & Sayfa4.[b65536].End(3).Row + 1)
        End If
30  Next
Sayfa2.Range("f4:g" & Sayfa2.[g65536].End(3).Row).Interior.ColorIndex = 1
Sayfa3.Range("e4:e" & Sayfa3.[e65536].End(3).Row).Interior.ColorIndex = 1
Sayfa3.Range("g4:g" & Sayfa3.[g65536].End(3).Row).Interior.ColorIndex = 1
Sayfa4.Range("e4:f" & Sayfa4.[f65536].End(3).Row).Interior.ColorIndex = 1
End Sub

 

[polis]

ayhan bey tşk ederim ilginiz için. Fakat şöyle bir problem var, sayfalara aktarımda 1 satırın sadece 1 kere kopyalanması gerekirdi fakat 1 satır 1den fazla kopyalanmış.

Teşekkür ederim tekrar ilgilendiğiniz için

 

[Ayhan Ercan]

Şuan için cevap veremeyeceğim. Acil kalkmam gerekli. Diğer arkadaşlar cevap veremesseler daha sonra incelerim.
İyi günler...

 

[polis]

tşk ederim

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

Not: Özel mesajla ilettiğiniz özellikler eklenmiştir.

 

[polis]

Korhan bey, ilginizden dolayı çok teşekkür eder saygılarımı sunarım.

İyi Çalışmalar