- Katılım
- 9 Eylül 2004
- Mesajlar
- 243
- Excel Vers. ve Dili
- Office2003Trk
aşağıdaki kullandığım makro borcu olan müşterileri görüntülüyor.görüntülenen yerde o müşterilere ait satır numarasınıda göstermesini istiyorum.
Sub gitalacak()
Sheets("55").Select
Sheets("55").[b5].Select
[b7:l11000].ClearContents
For s = 1 To 1
Satsay = Sheets("1").Cells(65532, 1).End(xlUp).Row
For ara = 1 To Satsay
If Sheets("1").Cells(ara, 12).Value <> 0 Then
c = c + 1
For sut = 1 To 11
Cells(c + 6, sut + 1) = Sheets("" & s).Cells(ara, sut).Value
Next
End If
Next
Next
End Sub
Sub gitalacak()
Sheets("55").Select
Sheets("55").[b5].Select
[b7:l11000].ClearContents
For s = 1 To 1
Satsay = Sheets("1").Cells(65532, 1).End(xlUp).Row
For ara = 1 To Satsay
If Sheets("1").Cells(ara, 12).Value <> 0 Then
c = c + 1
For sut = 1 To 11
Cells(c + 6, sut + 1) = Sheets("" & s).Cells(ara, sut).Value
Next
End If
Next
Next
End Sub