Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
Arkadaslar Gunaydın
Bir Excel Sayfasında 4 Sheet'ten olusan datam var.
Sheet'ler(index,x,y,z)
İndex Sheet'inde 25367 Satırdan olusan S.no ve Unvan Kısmı mevcut
Diğer x,y,z Sheetlerınde Sadece Sıra no ları var.
Bir şeyler yazmaya calıstım ama zanedersem yanlıs yapıyorum
Hazırlana kod ise Aşagıdadır.
Sub dagıt()
'yanlıs olan birsey var yardımcı olabilirmisiniz.
'For x = 2 To 25327
'If Sheets("index").Select.Cells(x, 1) = Sheets("x").Select.Cells(x, 1) Then
'Sheets("x").Select.Cells(x, 2).Value = Sheets("index").Select.Cells(x, 2).Value
'End If
'If Sheets("index").Select.Cells(x, 1) = Sheets("y").Select.Cells(x, 1) Then
'Sheets("y").Select.Cells(x, 2).Value = Sheets("index").Select.Cells(x, 2).Value
'End If
'If Sheets("index").Select.Cells(x, 1) = Sheets("z").Select.Cells(x, 1) Then
'Sheets("z").Select.Cells(x, 2).Value = Sheets("index").Select.Cells(x, 2).Value
'End If
'Next
End Sub
Dosya Ektedir. Yardımcı olursanız Sevinirim.(Dosya Büyük biraz kucultmem gerekecek)Data boyutunu 5000 e dusurdum
Bir Excel Sayfasında 4 Sheet'ten olusan datam var.
Sheet'ler(index,x,y,z)
İndex Sheet'inde 25367 Satırdan olusan S.no ve Unvan Kısmı mevcut
Diğer x,y,z Sheetlerınde Sadece Sıra no ları var.
Bir şeyler yazmaya calıstım ama zanedersem yanlıs yapıyorum
Hazırlana kod ise Aşagıdadır.
Sub dagıt()
'yanlıs olan birsey var yardımcı olabilirmisiniz.
'For x = 2 To 25327
'If Sheets("index").Select.Cells(x, 1) = Sheets("x").Select.Cells(x, 1) Then
'Sheets("x").Select.Cells(x, 2).Value = Sheets("index").Select.Cells(x, 2).Value
'End If
'If Sheets("index").Select.Cells(x, 1) = Sheets("y").Select.Cells(x, 1) Then
'Sheets("y").Select.Cells(x, 2).Value = Sheets("index").Select.Cells(x, 2).Value
'End If
'If Sheets("index").Select.Cells(x, 1) = Sheets("z").Select.Cells(x, 1) Then
'Sheets("z").Select.Cells(x, 2).Value = Sheets("index").Select.Cells(x, 2).Value
'End If
'Next
End Sub
Dosya Ektedir. Yardımcı olursanız Sevinirim.(Dosya Büyük biraz kucultmem gerekecek)Data boyutunu 5000 e dusurdum