İşaretlenen bilgileri diğer sayfadaki şablona aktarma

[y.selim]

merhabalar

sayfa1 deki listeden seçilen bilgilerin sayfa2 deki şablona uygun olarak aktarılmasını formülle yapmamız mümkün mü?biraz karmaşık ama bana iş esnasında çok zaman kazandıracak bir uygulama. ilgilenenlere şimdiden çok teşekkür ederim.

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%, a%, s1 As Worksheet, s2 As Worksheet
    Set s1 = ThisWorkbook.Worksheets(1)
    Set s2 = ThisWorkbook.Worksheets(2): a = 9
    For i = 2 To s1.Range("B65536").End(3).Row
        If s1.Cells(i, 2).Interior.ColorIndex = 43 Then
            With s2
                .Range("E2").Value = s1.Cells(i, 2)
                .Range("E3").Value = s1.Cells(i, 3)
                .Range("E4").Value = s1.Cells(i, 4)
                .Range("E5").Value = s1.Cells(i, 5)
                .Cells(a, 2).Value = s1.Cells(i, 6)
                .Cells(a, 3).Value = s1.Cells(i, 7)
                .Cells(a, 4).Value = s1.Cells(i, 8)
                a = a + 1
            End With
        End If
    Next i
    Set s2 = Nothing: Set s1 = Nothing: a = Empty: i = Empty
End Sub[/FONT]

 

[muygun]

Merhaba;
İşlevlerle çözüm Alternatif olsun
İnceleyin.
İyi çalışmalar.

 

[y.selim]

Sayın muygun çok teşekkür ederim minnettar kaldım size
elinize aklınıza sağlık...

 

[y.selim]

Murat bey ilgilendiğiniz için teşekkür ederim. lakin kodlarda şöyle bir sıkıntı var.
yazılan kodlar sadece 1.aralığı görüyor. (başla-bitir) komutu diğer sıra numaralarına geçince
onları aktarması lazım.yardımcı olabilirseniz sevinirim.

 

[y.selim]

merhaba
yukarıdaki soruma murat beyin yazış olduğu kodda bir eksiklik var. yardımcı olabilecek bir makrocu varmı acaba.sorunu bir önceki mesaja belirttim.

 

[muygun]

Merhaba;
Murat bey online değil ama ekteki gibi olabilir.
İnceleyin.
İyi çalışmalar.

 

[y.selim]

çok teşekkür ederim üstadım size baya zahmet verdim. formülle yapmış olduğunuz çözüm çok iyi ama makronuz benim için daha kullanışlı oldu.elinize yüreğinize sağlık...