ACE giúp em xuất giữ liệu từ 1 ô ra nhiều ô. (1 người xem)

[hoanghoa_dtt91]

Giờ em có đoạn code này:
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[B2].Insert shift:=xlDown
[B2] = [B1].Value
Application.EnableEvents = True
End Sub
Dữ liệu được đẩy từ ô B1 dần xuống dưới. Giờ em muốn không đẩy xuống mà những dữ liệu sau sẽ viết dần xuống dưới. Ai giúp với, Thank!

 

[Lê Duy Thương]

giờ em có đoạn code này:
Private sub worksheet_calculate()
application.enableevents = false
[b2].insert shift:=xldown
[b2] = [b1].value
application.enableevents = true
end sub
dữ liệu được đẩy từ ô b1 dần xuống dưới. Giờ em muốn không đẩy xuống mà những dữ liệu sau sẽ viết dần xuống dưới. Ai giúp với, thank!

đưa file lên cho thực tế và đỡ mất công người giúp mất công .

 

[hoanghoa_dtt91]

đưa file lên cho thực tế và đỡ mất công người giúp mất công .

Xem giúp mình với. Thank!

 

[phucbugis]

Xem giúp mình với. Thank!

Bạn xem file coi có đúng ko nhé!

Link MediaFire: xuất dữ liệu (1)

 

[hoanghoa_dtt91]

Xem sửa lại giúp mình với.

 

[phucbugis]

Xem sửa lại giúp mình với.

Bạn xem kỹ lại file, cái này là Private Sub Worksheet_Change(ByVal Target As Range) chứ chẳng liên quan gì đến Worksheet_Calculate cả

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
ActiveSheet.Cells(65536, 2).End(xlUp).Offset(1, 0).Value = Range("D1").Value
Application.EnableEvents = True


End Sub

 

[hoanghoa_dtt91]

Bạn xem kỹ lại file, cái này là Private Sub Worksheet_Change(ByVal Target As Range) chứ chẳng liên quan gì đến Worksheet_Calculate cả

Minh muốn dùng Private Sub Worksheet_Calculate() vì cái ô thay đổi dữ liệu lấy từ file khác.

 

[phucbugis]

Minh muốn dùng Private Sub Worksheet_Calculate() vì cái ô thay đổi dữ liệu lấy từ file khác.

Đúng rồi, nhập 2 lần 3 thì sao mà Calculate được

Vậy bạn thử làm theo cách sau nhé: Cài trực tiếp tại sheet mà có giá trị thay đổi luôn.

Bạn mở file và nhập giá trị vào range("A1") của sheet 2 xem sao.

Link MediaFire: xuất dữ liệu (2)

 

[hoanghoa_dtt91]

không phải bạn à.cái này từ phần mền khác.

 

[phucbugis]

không phải bạn à.cái này từ phần mền khác.

Bạn xem cách liên kết của 2 file sau có đúng ý ko nhé

Bạn mở 2 file, thay đổi giá trị B1 tại Book2 xem sao?

Link MediaFire: xuat du lieu (3)

 

[hoanghoa_dtt91]

Cái này là từ phần mền khác trỏ giá trị vào. mình chỉ dựa vào thay đổi giá trị của ô đó thôi