- Katılım
- 15 Mart 2005
- Mesajlar
- 58
Merhaba herkese
buraya yazan diğer arkadaşlar gibi benim de bir sorum olacak
aşağıdaki kodlarla sayfa üstündeki veriyi buluyorum ve
aynı satırdaki bazı verileri siliyorum ama
son iki satırı silemiyorum döngüde bir hata var
kod şu :
'**************************
Dim silinecek As Range
For Each silinecek In Range("a1:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(silinecek.Value, vbUpperCase) = StrConv(TextBox17.Value, vbUpperCase) Then
silinecek.Select
TextBox17.Value = ActiveCell.Offset(0, 0).Value
Range(ActiveCell.Offset(0, 0).Address(False, False) & ":" & ActiveCell.Offset(0, 16).Address(False, False)).Delete Shift:=xlUp
UserForm2.TextBox17.Value = "silindi"
Exit Sub
End If
Next silinecek
'*************************
sizce burada hatam nerededir ...
şimdiden teşekkür ederim...
buraya yazan diğer arkadaşlar gibi benim de bir sorum olacak
aşağıdaki kodlarla sayfa üstündeki veriyi buluyorum ve
aynı satırdaki bazı verileri siliyorum ama
son iki satırı silemiyorum döngüde bir hata var
kod şu :
'**************************
Dim silinecek As Range
For Each silinecek In Range("a1:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(silinecek.Value, vbUpperCase) = StrConv(TextBox17.Value, vbUpperCase) Then
silinecek.Select
TextBox17.Value = ActiveCell.Offset(0, 0).Value
Range(ActiveCell.Offset(0, 0).Address(False, False) & ":" & ActiveCell.Offset(0, 16).Address(False, False)).Delete Shift:=xlUp
UserForm2.TextBox17.Value = "silindi"
Exit Sub
End If
Next silinecek
'*************************
sizce burada hatam nerededir ...
şimdiden teşekkür ederim...