tự dán dữ liệu xuống 1 dòng

[N2NTrung]

Chào các bạn, nhờ các bạn giúp mình BT này với.
Mình có 1 file (tuxuongdong). Mỗi lần chay macro chọn 1 mã số từ ComboBox1 thì thì sẽ tự xuống 1 dòng và dán dữ liệu vào sheet (thuchien)

 

[anhtuan1066]

Với yêu cầu đơn giản này thì cần gì đến UserForm cho rách việc... Tôi thấy làm như vầy cũng đủ rồi... Công việc ít mà dao búa nhiều quá chỉ tổ nhức đầu!
ANH TUẤN

 

[N2NTrung]

à mình định bổ sung ứng dụng thêm cho mấy CT con nữa í mà. Rất cám ơn bạn anhtuan.

 

[voda]

Chương trình của anhtuan1066 đơn giản mà hiệu quả. Tuy nhiên, lúc mở file, nếu lỡ tay chọn một ô nào đó bất kỳ (ngoài ô kế tiếp dữ liệu tại cột A) thì chương trình không chạy hoặc chạy không theo ý đồ. Bạn xem lại thử nhé.

 

[N2NTrung]

Mình vẫn muốn thử cái UserFrom, áp dụng đoạn code của bạn anhtuan thì Ma_so lại chạy lung tung, các bạn giúp mình cho cái Ma_so chạy bắt đầu từ cột A2 của sheet(thuchien) xuống với.

 

[anhtuan1066]

Chương trình của anhtuan1066 đơn giản mà hiệu quả. Tuy nhiên, lúc mở file, nếu lỡ tay chọn một ô nào đó bất kỳ (ngoài ô kế tiếp dữ liệu tại cột A) thì chương trình không chạy hoặc chạy không theo ý đồ. Bạn xem lại thử nhé.

Tôi cố tình làm vậy mà bác... Đễ bào đãm rằng MA phải nằm cột A... vì trong này còn vướng các công thức, lở như bấm ComboBox nó đè vào công thức vùng khác thì nguy... Tôi nghĩ chắc Voda sẽ làm dc vụ này mà ko cần bất cứ công thức nào... Và khi chọn ComboBox thì dù ActiveCell nằm ở đâu nó cũng đưa MA về đúng cột A, TÊN về đúng cột B.. vân vân... (ngang ROW với ActiveCell)
Nghĩ là như vậy nhưng khả năng ko tới... Voda giúp 1 tay đi

 

[voda]

Bạn xem thử code này có được không?

Private Sub ComboBox1_Change()
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
If Not Intersect(ActiveCell, Range("A5:A100")) Is Nothing Then
ActiveCell.Value = ComboBox1
End If
End Sub

 

[N2NTrung]

Tuyệt vời. Mình sài ở nút lệnh nút lệnh CommandButton2 cũng thành công

Private Sub CommandButton2_Click()
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
If Not Worksheets("thuchien").Range("A5:A100") Is Nothing Then
ActiveCell.Value = ComboBox1
End If
End Sub

Rất cám ơn các bạn!

 

[voda]

Có thể viết gọn hơn như sau:

Private Sub ComboBox1_Change()
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
ActiveCell.Value = ComboBox1
End Sub

 

[ptm0412]

Mình vẫn muốn thử cái UserFrom, áp dụng đoạn code của bạn anhtuan thì Ma_so lại chạy lung tung, các bạn giúp mình cho cái Ma_so chạy bắt đầu từ cột A2 của sheet(thuchien) xuống với.

Tớ không biết nhiều VBA, chỉ là bập bõm đọc và hiểu câu được câu chăng, nhưng tớ thấy N2NTrung copy code rồi sửa như vậy, nó nhảy lung tung là phải.
Tớ copy đúng hơn nên nó chạy bắt đàu từ A2 theo ý bạn. Ngoài ra tớ còn khóa các cột còn lại tránh lỗi click chọn cell ra ngoài, macro không chạy như Voda nói.
Và vì tớ không biết VBA nên tớ làm cách khác (ở sheet thuchien2).
Xem file kèm theo.

 

[minhlev]

Từ bài của các bác, tôi cũng xin được thêm vào 1 đoạn code với mục đích gán giá trị mà không dùng các công thức.

Private Sub ComboBox1_Change()
i = WorksheetFunction.Match(ComboBox1.Value, Sheet1.Range("B1:B" & _
    Sheet1.Range("B65536").End(xlUp).Row), 0)
Sheet1.Range("B" & i & ":F" & i).Copy
Range("A" & Range("A65536").End(xlUp).Row + 1).PasteSpecial xlPasteValues
End Sub

To bác Voda: Em có thể rút gọn code của bác còn 1 dòng thì có được không ạ?

Private Sub ComboBox1_Change()
Range("A" & Range("A65536").End(xlUp).Row + 1).Value = ComboBox1
End Sub

 

[N2NTrung]

cám ơn bạn ptm0412 nhưng ý mình là tự xuống 1 dòng và gán dữ liệu vào sheet (thuchien), bạn voda đã giải quyết gọn rồi. Mà bạn khóa sheet (thuchien2) kiểu j vậy, thế thì không vào sửa được à?

 

[N2NTrung]

Mình muốn phát triển BT này sang VBA for acad tức là vẫn tự xuống dòng và gán GT của ComboBox1 vào từ cột A2 của sheet (thuchien) trở xuống nhưng KT của mình còn abc quá, ở BT này cách khai báo cái ActiveCell cho Excel chưa ổn hay sao ấy, rất mong được các bạn chỉ giáo.

 

[ptm0412]

Mà bạn khóa sheet (thuchien2) kiểu j vậy, thế thì không vào sửa được à?

Các cột còn lại làm xong hoàn chỉnh rồi mới khóa đấy chứ. Ngoài ra muốn mở khóa để chỉnh sửa cũng dễ mà. (Menu - tool - unprotect sheet)

Ngoài ra bạn cũng có thể chọn lựa khóa cột nào, không khóa cột nào bằng cách chọn cột (các cột) không muốn khóa : format cell - protection - bỏ chọn lock

bạn voda đã giải quyết gọn rồi.

Lúc tớ gõ bài để post là chưa có bài thứ nhì của Voda, nếu có rồi tớ không dám múa rìu đâu mà.