copy từ khoảng này sang khoảng khác chứa code list danh sách tạo bởi validation

[kimboiquetoi]

em có bài đã tạo code danh sách lựa chọn tên lương thực, nếu giờ chọn xong ngày thứ 2 mà muốn copy từ thứ 2 xuống thứ 4 chẳng hạn thì không cho copy mà nó cứ nhảy vào mục chọn tên lương thực, rất mong các anh sửa giúp em để có thể copy từ thứ này sang thứ kia được ạ.

 

[hpkhuong]

em có bài đã tạo code danh sách lựa chọn tên lương thực, nếu giờ chọn xong ngày thứ 2 mà muốn copy từ thứ 2 xuống thứ 4 chẳng hạn thì không cho copy mà nó cứ nhảy vào mục chọn tên lương thực, rất mong các anh sửa giúp em để có thể copy từ thứ này sang thứ kia được ạ.

Bạn nhấn Alt+F11. Của số VBE mở ra, nhìn góc trái phía trên...có sheet, module. Click vào sheet2. Tìm tới đoạn sub sự kiện sau và sửa 2 dòng màu đỏ: Bỏ dấu nháy đầu câu đi là được

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim i As Long
i = ([A65536].End(xlUp).Row) - 2
If Target.Column = 2 Then 'neu cot chon la cot 1 thi
Application.ScreenUpdating = False
    If Target.Row >= 2 Then 'And Target.Row < i And Target.Count = 1 Then
[B][COLOR=#ff0000]        'If Target = "" Then[/COLOR][/B]
        ThayDoi
        ActiveSheet.TextBox1.Value = ActiveCell.Value
    Else
        Hide
[COLOR=#ff0000][B]        'End If[/B][/COLOR]
    End If
Else
Hide
End If
Application.ScreenUpdating = True
End Sub

 

[kimboiquetoi]

rất cảm ơn bác, nói rất là chi tiết nhưng bỏ dấu đi thì lại không chọn được nữa bác ạ. bác làm thử xong gửi lên được không, với lại nó báo lỗi là type mismatch luôn à

 

[kimboiquetoi]

rất mong mọi người trợ giúp với ạ,

 

[kimboiquetoi]

mong mọi người giúp em để có thể copy từ thứ 2 sang thứ 4 chẳng hạn ạ, chỉ copy phần bên trong từ ô B2 đến E14 thôi, giờ copy nó cứ nhảy vào chọn list ấy ạ

 

[giaiphap]

mong mọi người giúp em để có thể copy từ thứ 2 sang thứ 4 chẳng hạn ạ, chỉ copy phần bên trong từ ô B2 đến E14 thôi, giờ copy nó cứ nhảy vào chọn list ấy ạ

Nói chung là có những chuyện không thể hoàn hảo hết đâu bạn à, được cái này thì mất cái kia thôi. Được danh sách thì không chọn được, muốn chọn được thì bỏ danh sách lọc khi gõ.

 

[kimboiquetoi]

vâng khả năng là thế, có vẻ khó được cái này mất cái kia thật. rất cảm ơn mọi người đã góp ý, nhưng ai có phương án thì có thể giúp em với nhé

 

[dauxom]

vâng khả năng là thế, có vẻ khó được cái này mất cái kia thật. rất cảm ơn mọi người đã góp ý, nhưng ai có phương án thì có thể giúp em với nhé

Không khó đâu nếu bạn suy nghĩ đơn giản, hiện không được vì có list tự chọn

giờ làm thế này, bổ sung dòng code này vào Sub Worksheet_SelectionChange ở vị trí đầu tiên

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If [G1] <> 1 Then Exit Sub
.................

 

[dauxom]

Cách này hay hơn nữa, không cần G1 như trên đó là thêm dòng code sau vào Sub Worksheet_SelectionChange ở vị trí dòng đầu tiên

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Target.Cells.Count > 1 Then Exit Sub
.................

Khi cần copy chỉ cần chọn từ 2 cells trở lên là xong,

người bạn nhắn: Suy nghĩ đơn giản thì sẽ giản đơn

 

[kimboiquetoi]

iu thankyou bác dauxom nhé, bác làm quá chuẩn luôn, tất cả đã được giải quyết xong, cảm ơn bác rất rất nhiều

 

[dauxom]

iu thankyou bác dauxom nhé, bác làm quá chuẩn luôn, tất cả đã được giải quyết xong, cảm ơn bác rất rất nhiều

Dùng cái này đi, ...
giờ sẽ thấy nhanh nhanh (chỉ chậm khi lần đầu chọn khi vừa mở file, từ lần 2... là chọn nhanh lắm)

 

[kimboiquetoi]

thanks bác nhiều nha. load nhanh hơn thật