No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
જીવન જેવà«àª‚ જીવà«àª‚ છà«àª‚ àªàªµà«àª‚ કાગળ પર ઉતારà«àª‚ છà«àª‚ ઉતારà«àª‚ છà«àª‚ પછી થોડà«àª‚ઘણà«àª‚ àªàª¨à«‡ મઠારà«àª‚ છà«àª‚ તફાવત ઠજ છે…
|
Private Sub CommandButton1_Click() Dim rowCount As Long 'Range("A2")=UserForm1.TextBox1.Value 'Range("B2")=UserForm1.ComboBox1.Value 'Range("C2")=UserForm1.TextBox2.Value 'Range("D2")=UserForm1.TextBox3.Value 'Range("E2")=UserForm1.ComboBox2.Value 'Range("F2")=UserForm1.OptionButton1.Value 'Range("G2") UserForm1.OptionButton2.Value 'Range("H2")=UserForm1.OptionButton3.Value rowCount = Sheets("Data").Range("A2").CurrentRegion.Rows.Count With Sheets("Data").Range("A2") .Offset(rowCount, 0) = Now .Offset(rowCount, 1) = UserForm1.TextBox1.Value .Offset(rowCount, 2) = UserForm1.ComboBox1.Value .Offset(rowCount, 3) = UserForm1.TextBox2.Value .Offset(rowCount, 4) = UserForm1.TextBox3.Value .Offset(rowCount, 5) = UserForm1.ComboBox2.Value If UserForm1.OptionButton1.Value Then Sheets("Data").Cells(nextrow, 6) … 
|