Coppy dữ liệu đưa vào textbox (2 người xem)

[thomtv]

Các bạn & các A/C vui lòng hướng dẫn mình, khi coppy dữ liệu đưa vào textbox rồi đưa vào Ceel thì có lỗi như file đính kèm. không biết có phải do do thuộc tính của textbox nên xảy ra lỗi.
Rất mong được sự hướng dẫn của các A/c, xin cảm ơn
Mình tìm cả buổi trên GP nhưng chưa tìm ra giải pháp nào, mong được sự gợi ý và giúp đỡ
Private Sub Cmdcapnhat_Click()
Set sw = Worksheets("GP text")
Dim eR As Integer
eR = Sheets("GP text").[a:a].Find("cong 2", , , xlPart).Row
With Sheets("GP text")
.Cells(eR, eR).EntireRow.Insert
.Cells(eR, 2) = Me.TextBox1.Value & " - " & Me.TextBox2.Value
.Cells(eR, 3) = Me.TextBox3.Value
End With
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
End Sub

 

[chuot0106]

Các bạn & các A/C vui lòng hướng dẫn mình, khi coppy dữ liệu đưa vào textbox rồi đưa vào Ceel thì có lỗi như file đính kèm. không biết có phải do do thuộc tính của textbox nên xảy ra lỗi.
Rất mong được sự hướng dẫn của các A/c, xin cảm ơn
Mình tìm cả buổi trên GP nhưng chưa tìm ra giải pháp nào, mong được sự gợi ý và giúp đỡ
Private Sub Cmdcapnhat_Click()
Set sw = Worksheets("GP text")
Dim eR As Integer
eR = Sheets("GP text").[a:a].Find("cong 2", , , xlPart).Row
With Sheets("GP text")
.Cells(eR, eR).EntireRow.Insert
.Cells(eR, 2) = Me.TextBox1.Value & " - " & Me.TextBox2.Value
.Cells(eR, 3) = Me.TextBox3.Value
End With
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
End Sub

Tôi đâu thấy lỗi như bạn nói? Vẫn nhập bình thường mà!

 

[thomtv]

Tôi đâu thấy lỗi như bạn nói? Vẫn nhập bình thường mà!

Xin cảm ơn bạn đã quan tâm bài mình.
vấn đề ở chổ là Coppy dữ liệu của 1 cell nào đó rồi paste vào textbox cần thực hiện, khi dập xuống cell trở lại thì nó dập toàn bộ các cell trong row.( bạn xem file ở dòng 6 bị lỗi) Cảm ơn

 

[chuot0106]

Xin cảm ơn bạn đã quan tâm bài mình.
vấn đề ở chổ là Coppy dữ liệu của 1 cell nào đó rồi paste vào textbox cần thực hiện, khi dập xuống cell trở lại thì nó dập toàn bộ các cell trong row.( bạn xem file ở dòng 6 bị lỗi) Cảm ơn

Bạn thử xem đã được chưa?

 

[thomtv]

Bạn thử xem đã được chưa?

Cảm ơn bạn, nhưng còn giải pháp nào ngoài việc phải Clear cột, nếu trong sheets có nhiều dữ liệu ở cột khác thì giải pháp này chưa tốt lắm. Mong được hướng dẫn của bạn và các A/C trên GP.
Sheet1.Range("D6:IV1000").ClearContents

 

[chuot0106]

Cảm ơn bạn, nhưng còn giải pháp nào ngoài việc phải Clear cột, nếu trong sheets có nhiều dữ liệu ở cột khác thì giải pháp này chưa tốt lắm. Mong được hướng dẫn của bạn và các A/C trên GP.
Sheet1.Range("D6:IV1000").ClearContents

Theo tôi bạn muốn copy thì đâu cần dùng đến form, bạn cứ copy và paste trực tiếp là được rồi mà!

 

[thomtv]

Theo tôi bạn muốn copy thì đâu cần dùng đến form, bạn cứ copy và paste trực tiếp là được rồi mà!

Không phải vậy bạn ơi vì mình dùng form đưa dữ liệu vào nhiều sheet nên mình mới làm như vậy, còn file mình gửi lên chỉ để test thử. xin cảm ơn sự nhiệt tình của bạn.
A/C ơi có ai giúp em với! huhu