- Katılım
- 8 Haziran 2007
- Mesajlar
- 761
- Excel Vers. ve Dili
- excel- 2003 Türkçe
Arkadaşlar aşağıdaki kodu ile bilgileri bir sayfadan başka sayfaya aktarıyorum. Ama benim istediğim Açılıan kutuda ne yazıyorsa onun olduğu satırı aktarsın
Örnek BW sütununda mahkeme adları var Ben açılan kutudan 1.İdare mahkemesini seçmişsem bana belgedeki tüm 1.İdare mahkemesinde olanları aktarsın
Sub SÜZ()
Dim Hucre As Range
Set shD = Sheets("Data")
Set shA = Sheets("ÖZEL")
Y = 11
For Each Hucre In shD.Range("BW11:BW305")
If IsError(Hucre) = True Then: GoTo f1
If Hucre.Value = 0 Or Hucre.Value = "" Then: GoTo f1
shA.Cells(Y, 1) = shD.Cells(Hucre.Row, 1)
shA.Cells(Y, 2) = shD.Cells(Hucre.Row, 2)
shA.Cells(Y, 3) = shD.Cells(Hucre.Row, 3)
shA.Cells(Y, 4) = shD.Cells(Hucre.Row, 4)
shA.Cells(Y, 5) = shD.Cells(Hucre.Row, 5)
shA.Cells(Y, 6) = shD.Cells(Hucre.Row, 6)
shA.Cells(Y, 7) = shD.Cells(Hucre.Row, 7)
shA.Cells(Y, 8) = shD.Cells(Hucre.Row, 8)
shA.Cells(Y, 57) = shD.Cells(Hucre.Row, Hucre.Column)
Y = Y + 1
f1:
Next
Set shD = Nothing
Set shA = Nothing
End Sub
Örnek BW sütununda mahkeme adları var Ben açılan kutudan 1.İdare mahkemesini seçmişsem bana belgedeki tüm 1.İdare mahkemesinde olanları aktarsın
Sub SÜZ()
Dim Hucre As Range
Set shD = Sheets("Data")
Set shA = Sheets("ÖZEL")
Y = 11
For Each Hucre In shD.Range("BW11:BW305")
If IsError(Hucre) = True Then: GoTo f1
If Hucre.Value = 0 Or Hucre.Value = "" Then: GoTo f1
shA.Cells(Y, 1) = shD.Cells(Hucre.Row, 1)
shA.Cells(Y, 2) = shD.Cells(Hucre.Row, 2)
shA.Cells(Y, 3) = shD.Cells(Hucre.Row, 3)
shA.Cells(Y, 4) = shD.Cells(Hucre.Row, 4)
shA.Cells(Y, 5) = shD.Cells(Hucre.Row, 5)
shA.Cells(Y, 6) = shD.Cells(Hucre.Row, 6)
shA.Cells(Y, 7) = shD.Cells(Hucre.Row, 7)
shA.Cells(Y, 8) = shD.Cells(Hucre.Row, 8)
shA.Cells(Y, 57) = shD.Cells(Hucre.Row, Hucre.Column)
Y = Y + 1
f1:
Next
Set shD = Nothing
Set shA = Nothing
End Sub