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

[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 اون ستون و تلفیق با ادرس محدوده است و یا استفاده از اخرین سل پر شده که اقای اسماعیلی کاملا در مودش توی سایت توضیح دادن
موفق باشید