मुझे इस समस्या का सामना करना पड़ रहा है, मैं केवल उपयोगकर्ता फॉर्म-टेक्स्ट बॉक्स में डेटा दर्ज करना चाहता हूं और उस मान को पंक्ति से कॉलम बी की अंतिम पंक्ति तक स्वत: भरना होगा। इस कोड के साथ मुझे सक्रिय सेल से लेकर सीमा तक त्रुटि स्तंभ की अंतिम पंक्ति। कोड श्रेणी की अंतिम पंक्ति का पता लगाएं। कृपया इस समस्या को दूर करें।

Private Sub CommandButton2_Click()

Dim irow As Long
Dim activeworksheet As Worksheet
Dim lastrow As Long


    irow = ActiveWorkbook.Worksheets("Master sheet").Cells(Rows.Count, 1).End(xlUp).Row + 1

    lastrow = Cells(Cells.Rows.Count, "B").End(xlUp).Row

    Set activeworksheet = ThisWorkbook.Worksheets("master sheet")

    With activeworksheet

    .Cells(irow, 1) = UserForm1.TextBox1.Value

    .Cells(irow, 1).Select

    Selection.range(range("Activecell"), range("A" & Cells(Rows.Count, "B").End(xlUp).Row)).FillDown


    End With

End Sub
0
Baskaran 18 अप्रैल 2020, 11:04

1 उत्तर

सबसे बढ़िया उत्तर

क्या आपको बस इतना ही चाहिए? मुझे यकीन नहीं है कि मैं पूरी तरह से समझता हूं।

With activeworksheet
    Range(.Cells(irow, 1), .Cells(lastrow, 1)).Value = UserForm1.TextBox1.Value
End With
0
SJR 18 अप्रैल 2020, 09:03