copy qua sheet1 qua sheet2 căn cứ listbox & combobox (1 người xem)

[jthanhtung]

copy textbox vào sheet căn cứ combobox

Các anh giúp tôi đoạn code, có 4 textbox & 1 combobox yêu cầu:
1/. căn cứ điều kiện trong Combobox1 để nhập liệu 4 textbox vào đúng địa chỉ ở 4 cột của sheet2 (F,G,H,I) nếu có dữ liệu thì thông báo "có dữ liệu rồi",
2/. Xóa cũng vậy căn cứ combobox lấy địa chỉ xóa vùng này. tôi cảm ơn nhiều nhiều

 

[jthanhtung]

nnnnnnnnnnnnnnnnnnnnnn

 

[jthanhtung]

nnnnnnnnnnnnnnnnnnnn

 

[doveandrose]

Các anh giúp tôi đoạn code, có 4 textbox & 1 combobox rowsource yêu cầu:
1/. chọn địa chỉ trong combobox để nhập liệu 4 textbox vào 4 cells ở sheet2 (có đánh số thứ tự) nếu 4 cells này có dữ liệu rồi thì thông báo "có dữ liệu rồi",
2/. Xóa cũng vậy căn cứ combobox lấy địa chỉ để xóa 4 cells ở sheet2. tôi cảm ơn nhiều nhiều

ở trên toàn tiếng Việt sao tui không hiểu gì vậy cà . hic

 

[jthanhtung]

ở trên toàn tiếng Việt sao tui không hiểu gì vậy cà . hic

anh Doveandrose ơi, tôi có file đính kèm mục đích là nhập liệu từ form vào sheet căn cứ điều kiện trong combobox để gán đúng địa chỉ vào sheet, khi thỏa mãn điều kiện thì gán textbox1 vào cột đánh số 1, textbox2 vào cột đánh số 2, textbox3 vào cột đánh số 3, textbox4 vào cột đánh sốt 4 anh à, anh cho tôi xin đoạn code gởi ý nhé.

 

[doveandrose]

ủa nếu vậy thao tác trên sheet luôn cho rồi chế Form chi nữa

 

[jthanhtung]

ủa nếu vậy thao tác trên sheet luôn cho rồi chế Form chi nữa

đó là sheet mẫu, khi nhập liệu nhiều cho công việc cần form cho nhanh gọn anh à.

 

[doveandrose]

lấy ComboBox1.ListIndex + 10 = dòng cần ghi vào sheet . cũng đơn giản mà ...
bạn tự làm cũng được cho quen . U23 Việt Nam về vườn , tâm trạng đang bấn loạn , không làm được gì hết ....

 

[jthanhtung]

nnnnnnnnnnnnnnnnnnnn

 

[jthanhtung]

sự phụ NDU rảnh cho em xin mấy dòng đi, em cám ơn

 

[jthanhtung]

nnnnnnnnnnnnnnnnnnnn

 

[jthanhtung]

Các anh giúp tôi đoạn code, có 4 textbox & 1 combobox yêu cầu:
1/. căn cứ điều kiện trong Combobox1 để nhập liệu 4 textbox vào đúng địa chỉ ở 4 cột của sheet2 (F,G,H,I) nếu có dữ liệu thì thông báo "có dữ liệu rồi",
2/. Xóa cũng vậy căn cứ combobox lấy địa chỉ xóa vùng này. tôi cảm ơn nhiều nhiều

có anh chị nào giúp tôi phần này, tôi cảm ơn nhiều

 

[jthanhtung]

Các anh giúp tôi đoạn code, có 4 textbox & 1 combobox yêu cầu:
1/. căn cứ điều kiện trong Combobox1 để tìm qua cột L nhập liệu 4 textbox (1,2,3,4) vào 4 cột của sheet2 (F,G,H,I) nếu có dữ liệu thì thông báo "có dữ liệu rồi",
2/. Xóa cũng vậy căn cứ combobox lấy địa chỉ xóa vùng này. tôi cảm ơn nhiều nhiều

có anh chị nào giúp tôi, tôi cảm ơn

 

[jthanhtung]

có anh chị nào giúp tôi, tôi cảm ơn

 

[jthanhtung]

1/. căn cứ điều kiện trong Combobox1 để tìm qua cột L nhập liệu 4 textbox (1,2,3,4) vào 4 cột của sheet2 (F,G,H,I) nếu có dữ liệu thì thông báo "có dữ liệu rồi",
2/. Xóa cũng vậy căn cứ combobox lấy địa chỉ xóa vùng này. tôi cảm ơn nhiều nhiều

tôi tìm đọc trong gpe phần này dùng Scripting.Dictionary rất nhanh, các anh chị GPE xem giúp tôi với, cảm ơn và hậu tạ.

 

[jthanhtung]

Private Sub CommandButton1_Click()
Dim Arr
Dim i As Long, Tem As String
Arr = Sheets("date").Range("F10:L1000").End(3)
MyControls = Array(TextBox1, TextBox2, TextBox3, TextBox4)
Tem = ComboBox1.Value
For i = 1 To 7
If Arr(i, 7) = Tem Then
Arr(i, 4) = MyControls
End If
Next
End Sub

anh chị nào giúp tôi sửa lại code này, tôi cảm ơn nhiều