Xin CODE tự loát và ghi dữ liệu từ Cell nọ tới Cell kia trong cung Sheet

[le_vis]

Nhờ các bạn giúp đỡ
Tôi có File xin được trình bày như sau
1- Form nhập liệu đặt pass để tránh sơ ý làm mất công thức ở các cột H, U, W
(Hiện Pass đang đặt là 115588)
2- Hiện tại : Khi tại vùng Cell V9 nhập 1,2.... từ vào thì gọi được các mã số thuế về cột U từ đó đọc số đúng từ cột U nhập vào vùng Cell G3 để nó tự động loát dữ liệu khách từ Sheet DS_KH về ghi vào Form nhập liệu
Ý TƯỞNG : (Như File đính kèm) Nhờ các bạn giúp đoạn code sao cho mọi biểu mẫu và code cũ không thay đổi
Muốn xin đoạn code sao cho khi Clich vào bất cứ vùng Cell nào từ U10 đến U20 thì mã số thuế đó tự cập vào Cell G3 Với điều kiện Sheet Form vẫn khóa Pass
XIN TRÂN TRỌNG CẢM ƠN

 

[luc.dhuy]

Nhờ các bạn giúp đỡ
Tôi có File xin được trình bày như sau
1- Form nhập liệu đặt pass để tránh sơ ý làm mất công thức ở các cột H, U, W
(Hiện Pass đang đặt là 115588)
2- Hiện tại : Khi tại vùng Cell V9 nhập 1,2.... từ vào thì gọi được các mã số thuế về cột U từ đó đọc số đúng từ cột U nhập vào vùng Cell G3 để nó tự động loát dữ liệu khách từ Sheet DS_KH về ghi vào Form nhập liệu
Ý TƯỞNG : (Như File đính kèm) Nhờ các bạn giúp đoạn code sao cho mọi biểu mẫu và code cũ không thay đổi
Muốn xin đoạn code sao cho khi Clich vào bất cứ vùng Cell nào từ U10 đến U20 thì mã số thuế đó tự cập vào Cell G3 Với điều kiện Sheet Form vẫn khóa Pass
XIN TRÂN TRỌNG CẢM ƠN

Chào bạn. Bạn thử xem file đính kèm xem có đúng không nhé.

 

[le_vis]

Chào bạn. Bạn thử xem file đính kèm xem có đúng không nhé.

Xin cảm ơn. chuẩn theo ý tưởng rồi - Chân thành cảm ơn bạn nhiều

 

[le_vis]

Chào bạn. Bạn thử xem file đính kèm xem có đúng không nhé.

Xin chào bạn : vẫn là File đó nhưng với ý tưởng là khi Clich vào mã số thuế nào thì nó sẽ cập nhật sang 1 trong các Cell từ C10 đến C17 định trước (Ví dụ : muốn nhảy sang C11 thì nó sang C11; hoặc C15 thì nó sang C15) thì phải sửa lại code thế nào - Xin bạn chỉ giúp

 

[luc.dhuy]

Xin chào bạn : vẫn là File đó nhưng với ý tưởng là khi Clich vào mã số thuế nào thì nó sẽ cập nhật sang 1 trong các Cell từ C10 đến C17 định trước (Ví dụ : muốn nhảy sang C11 thì nó sang C11; hoặc C15 thì nó sang C15) thì phải sửa lại code thế nào - Xin bạn chỉ giúp

Bạn thêm code này vào sheet mình muốn. VD bên dưới ở sheet1 nhé bạn.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 21 And Target.Row > 9 And Target.Row < 21 Then
Sheets("Sheet1").Range("C" & Target.Row) = Selection.text
End If
End Sub

 

[le_vis]

Bạn thêm code này vào sheet mình muốn. VD bên dưới ở sheet1 nhé bạn.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 21 And Target.Row > 9 And Target.Row < 21 Then
Sheets("Sheet1").Range("C" & Target.Row) = Selection.text
End If
End Sub

Xin cảm ơn bạn. Ý mình muốn khi tích chuột vào vùng Cell bất kỳ nào của cột C Ví dụ C11, hoặc C12, C15..... rồi mình Click chuột sang bất cứ vùng Cell nào của cột U; ví dụ U18 , hoặc U10 .... thì dữ liệu vùng Cell đó nhảy sang một trong các Cell C11, hoặc C12, C15.....
Code trên nó chỉ nhảy sang ngang thôi; ví dụ Click chuột vào U12 thì chỉ nhảy sang C12 thôi mà không nhảy sang C10 hay C14,C15... được Mong bạn xử cho ý này

 

[luc.dhuy]

Xin cảm ơn bạn. Ý mình muốn khi tích chuột vào vùng Cell bất kỳ nào của cột C Ví dụ C11, hoặc C12, C15..... rồi mình Click chuột sang bất cứ vùng Cell nào của cột U; ví dụ U18 , hoặc U10 .... thì dữ liệu vùng Cell đó nhảy sang một trong các Cell C11, hoặc C12, C15.....
Code trên nó chỉ nhảy sang ngang thôi; ví dụ Click chuột vào U12 thì chỉ nhảy sang C12 thôi mà không nhảy sang C10 hay C14,C15... được Mong bạn xử cho ý này

Bạn thay bằng code phía dưới là được nhé.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 21 And Target.Row > 9 And Target.Row < 21 Then
Sheet5.Cells(TextRe, 3) = Selection.text
End If
If Target.Column = 3 And Target.Row > 9 And Target.Row < 21 Then
TextRe = Selection.Row
End If
End Sub


Thêm phần dươls vào module bất kỳ nào nữa:

Global TextRe As Single

 

[le_vis]

Bạn thay bằng code phía dưới là được nhé.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 21 And Target.Row > 9 And Target.Row < 21 Then
Sheet5.Cells(TextRe, 3) = Selection.text
End If
If Target.Column = 3 And Target.Row > 9 And Target.Row < 21 Then
TextRe = Selection.Row
End If
End Sub


Thêm phần dươls vào module bất kỳ nào nữa:

Global TextRe As Single

Báo lỗi dòng lệnh này bạn à ?
Sheet5.Cells(TextRe, 3) = Selection.text

 

[luc.dhuy]

Báo lỗi dòng lệnh này bạn à ?
Sheet5.Cells(TextRe, 3) = Selection.text

Bạn đổi Sheet5 thành ActiveSheet như bên dưới là ok.

ActiveSheet.Cells(TextRe, 3) = Selection.text

 

[le_vis]

Bạn đổi Sheet5 thành ActiveSheet như bên dưới là ok.

ActiveSheet.Cells(TextRe, 3) = Selection.text

Cảm ơn bạn-không được bạn ạ vẫn lỗi- Ban thử đưa code vào giúp mình xem nào

 

[luc.dhuy]

Cảm ơn bạn-không được bạn ạ vẫn lỗi- Ban thử đưa code vào giúp mình xem nào

Bạn gửi file mà bạn đã coppy code vào lên mình xem nhé.

 

[le_vis]

Bạn gửi file mà bạn đã coppy code vào lên mình xem nhé.

ĐÂY BẠN XEM GIÚP

 

[luc.dhuy]

ĐÂY BẠN XEM GIÚP

Bạn xem file đã chỉnh lại rồi nhé.

 

[le_vis]

Bạn xem file đã chỉnh lại rồi nhé.

Chuẩn rồi - Xin cảm ơn bạn nhiều nhiều