این کد کجاش ایراد داره

[ali719]

سلام
من میخوام در شیت اول روی هر عددی که کلیک کردم اون رو به شیت دو در سلول b2 به بعد هر جا که خالی بود وارد کند اما نمی دونم کجای کارم ایراد داره لطفا کمک کنید
ممنون

[Ali Parsaei]

سلام،
کد ماژول ENTER را بايد به صورت زير اصلاح کنيد:

Private Sub enter()
Dim C As Range
Dim cell As String
cell = ActiveCell.Value
Dim response As Integer
response = MsgBox(prompt:="آيا مي خواهيد رديف " & cell & " را در ريز متره ثبت کنيد ؟", Buttons:=vbYesNo)
If response = vbYes Then
For Each C In Sheet2.Range("B2:B500")
If C = "" Then
C = cell
Exit For
End If
Next
End If
If response = vbNo Then
Exit Sub
End If
End Sub
البته اين فقط تا رديف B500 شيت دو کار مي کند، آخرش را طبق ميل خودتان اصلاح کنيد، من تا B500 نوشتم که زياد فايل کند نشود.

[khakzad]

با تشکر از جناب پارسا
جسارتا برای داشتن محدوده پویا و اینکه نخواید از اول 2500 سل رو اختصاص بدید، می تونید از راه های مختلفی استفاده کنید که محدوده رو خودش تشخیص بده
حالا یکی از این راه ها :
استفاده از count اون ستون و تلفیق با ادرس محدوده است و یا استفاده از اخرین سل پر شده که اقای اسماعیلی کاملا در مودش توی سایت توضیح دادن
موفق باشید