- Katılım
- 11 Ağustos 2005
- Mesajlar
- 239
ArkadaŞlar Dosyada AÇiklamayi Yaptim İlgİnİze TeŞekkÜrler
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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.
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