Arka Arkaya Yazdirmak

[cihangirkara]

ArkadaŞlar Dosyada AÇiklamayi Yaptim İlgİnİze TeŞekkÜrler

 

[Korhan Ayhan]

Selamlar,

Gerçi siz sorunuzu fonksiyonlar bölümüne sormuşsunuz ama bende bu arada dosyanıza makro ile çözüm hazırlamıştım. Belki kullanmak istersiniz düşüncesi ile eklemek istedim. Umarm işinize yarar.

Not: Sorularınızı dosya içerisinde değilde açtığınız başlık içerisinde sorarsanız daha faydalı olacaktır.

 

[Merhum İdris SERDAR]

Formülle yapılmış dosyanız ekte.

 

[Ali]

Gerçi siz sorunuzu fonksiyonlar bölümüne sormuşsunuz ama bende bu arada dosyanıza makro ile çözüm hazırlamıştım.

Sn COST CONTROL dediği gibi makro ile çözüm daha kolayıma geldi.

Alternatif olarak aşağıdaki kodu kullanabilirsiniz.

Sub isimleriaktar()
Dim b
b = 1
sayfaadi = InputBox("Aktarılacak ismi yazınız")
For Each secim In Worksheets("GİRİŞ").Range("B1", Worksheets("GİRİŞ").Range("B65536").End(xlUp)).Rows
If secim = sayfaadi Then
    b = b + 1
    Worksheets(sayfaadi).Cells(b, 1) = CDate(secim.Offset(0, -1))
    Worksheets(sayfaadi).Cells(b, 2) = secim
    Worksheets(sayfaadi).Cells(b, 3) = secim.Offset(0, 1)
   End If
Next
MsgBox "İsimler aktarıldı"
End Sub