Các bạn giúp mình code save các Texbox trên Form (1 người xem)

[hoang0569]

Mình gửi File, các bạn xem giúp, cảm ơn nhiều.

 

[Hoang2013]

Vậy 2 cột 'CVA' & 'CVB' sẽ phải nhập những gì?

 

[hoang0569]

Hai cot đó để trống ban à

 

[Gió Đông]

Mình gửi File, các bạn xem giúp, cảm ơn nhiều.

code này cho nút "Them"

Private Sub cmdThem_Click()
    Dim Cel As Range
    Set Cel = Sheets("DATA").Range("B65500").End(xlUp).Offset(1)
    With Cel
        .Value = Me.tbxCongTrinh
        .Offset(, 1).Value = Me.tbxDoan
        .Offset(, 4).Value = Me.tbxDiaDiem
    End With
End Sub

 

[hoang0569]

Mình muốn Texbox1,Texbox2 nhập vào cell B40,C40 còn Texbox3 nhập vào F40,thay đổi code thế nào, các bạn giúp mình nhé, cảm ơn nhiều

 

[Hoang2013]

Tranh thủ lúc vắng người:

Thay câu lệnh này:

[COLOR=#000000][COLOR=#0000BB]Set Cel [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"DATA"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"B65500"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])

thành

Set Cel = Sheets("DATA").Range("B40")

[/COLOR][/COLOR]

 

[hoang0569]

Thay code trên thì lại ghi đè lên bạn ơi

 

[anhdepjai]

Tức là như này ah bạn

 

[hoang0569]

Đúng ý tôi rồi, cảm ơn bạn, mình muốn hỏi thêm, trong trường hợp cột "tên công trường" để trống thì cột số thứ tự vẫn giữ số tt như hàng cũ, giúp mình nhé, xin cảm ơn.