Lấy địa chỉ cell nguồn

[trchau]

Chào các bạn!
Các bạn giúp tôi đoạn code để khi chọn vào 1 cell chứa dữ liệu trong cột A (sheet2), rồi kích vào nút lệnh thì gán địa chỉ cell nguồn (bên sheet1) vào cột B (sheet2), như minh họa trong file đính kèm.
Dữ liệu thực tế rất nhiều không thể làm thủ công được

 

[khoavu87]

Chào các bạn!
Các bạn giúp tôi đoạn code để khi chọn vào 1 cell chứa dữ liệu trong cột A (sheet2), rồi kích vào nút lệnh thì gán địa chỉ cell nguồn (bên sheet1) vào cột B (sheet2), như minh họa trong file đính kèm.
Dữ liệu thực tế rất nhiều không thể làm thủ công được

Mình nghĩ đã thế viết hàm mới hay hơn. Tham khảo file đính kèm xem sao.

 

[dhn46]

Bạn dùng cái này nhé (sao không cho chạy hết tất cả cột mà phải tạo nút bấm làm gì -- mất thời gian quá)

Sub Fomulas()
    Chuoi = Right(ActiveCell.Formula, Len(ActiveCell.Formula) - 1)   
   ActiveCell.Offset(, 1) = Chuoi
End Sub

 

[trchau]

2 giải pháp đều hay.

sao không cho chạy hết tất cả cột mà phải tạo nút bấm làm gì -- mất thời gian quá

Ý tôi là trong cột A của sheet 2 có ô chứa link, có ô không chứa link, khi cần xem/kiểm tra ô nào thì chọn và nhấn nút cho ô đó. Code của bạn gọn và hay lắm.
Tôi hỏi thêm vấn đề này nữa:
Với mụch đích xem và kiểm tra phần dữ liệu nguồn trên sheet 1.
Làm sao chỉ hiển thị những dòng có dữ liệu trong cột B - sheet1 - và có chứa link qua sheet2
Ẩn hết những dòng có dữ liệu trong cột B nhưng không liên quan đến sheet2 (file kèm theo).
Khoavu87, dhn46 hay bạn nào có cao kiến giúp tôi với.