- Katılım
- 20 Nisan 2005
- Mesajlar
- 189
herkese kolay gelsin eğer zahmet olmazsa aşağıdaki kodların ne manaya geldiğini söyleye blirmisiniz
Sub degerbul(hucre)
Application.ScreenUpdating = False
Sheets("Sayfa1").Select
Range(Mid(hucre, 2, 1) & "3:" & Mid(hucre, 2, 1) & "14").ClearContents
sayı = Range(hucre)
Sheets("Sayfa2").Select
Select Case Mid(hucre, 2, 1)
Sub degerbul(hucre)
Application.ScreenUpdating = False
Sheets("Sayfa1").Select
Range(Mid(hucre, 2, 1) & "3:" & Mid(hucre, 2, 1) & "14").ClearContents
sayı = Range(hucre)
Sheets("Sayfa2").Select
Select Case Mid(hucre, 2, 1)