mảrco tạo link + tạo sheet mới (1 người xem)

[mrloves]

Chào các bạn! mình gặp vấn đề
Hiện tại mình đang làm file excel như sau

cột B mình viết marco khi nhập một ký tự vào thì nó lập luôn sheet mới có tên đúng theo ký tự vừa đặt ở cột B
bây giờ mình thiếu 1 thứ nữa đó là viết thêm marco để nó tạo link đến thẳng cái sheet mới tạo ấy mà mình làm mãi ko đc
mong anh chị nào biết code chỉ giúp em với (
Mong các bạn giúp đỡ
cám ơn rất nhiều

 

[Quang_Hải]

Chào các bạn! mình gặp vấn đề
Hiện tại mình đang làm file excel như sau

cột B mình viết marco khi nhập một ký tự vào thì nó lập luôn sheet mới có tên đúng theo ký tự vừa đặt ở cột B
bây giờ mình thiếu 1 thứ nữa đó là viết thêm marco để nó tạo link đến thẳng cái sheet mới tạo ấy mà mình làm mãi ko đc
mong anh chị nào biết code chỉ giúp em với (
Mong các bạn giúp đỡ
cám ơn rất nhiều

Cơ bản là thế này. Nhưng để xài được chắc phải thêm bớt nhiều thứ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B:B]) Is Nothing Then
   Sheets.Add.Name = Target.Value
   With Target.Parent
      .Hyperlinks.Add Target, "", Target & "!A1"
      .Select
   End With
End If
End Sub

 

[mrloves]

đoạn mã mình viết như sau


Private Sub Worksheet_Change(ByVal Target As Range)


'Danh sach nam o cot C, id = 3
If (Target.Column = 2) Then
Dim sName
sName = ActiveSheet.Name


'Copy Sheet "MySheet"
Dim ws1 As Worksheet
Set ws1 = Worksheets("Form")


ws1.Copy after:=Worksheets(Worksheets.Count)
'Dat ten lai sheet moi copy = ten ban go vao Cot 3 o tren
ActiveSheet.Name = Target.Value


'focus lai sheet chua danh sach
Sheets(sName).Select
End If

 

[mrloves]

Bạn ghép giúp mình 2 code này với nhau đi (

 

[be_09]

Chào các bạn! mình gặp vấn đề
Hiện tại mình đang làm file excel như sau

cột B mình viết marco khi nhập một ký tự vào thì nó lập luôn sheet mới có tên đúng theo ký tự vừa đặt ở cột B
bây giờ mình thiếu 1 thứ nữa đó là viết thêm marco để nó tạo link đến thẳng cái sheet mới tạo ấy mà mình làm mãi ko đc
mong anh chị nào biết code chỉ giúp em với (
Mong các bạn giúp đỡ
cám ơn rất nhiều

Bạn không có File nên tôi làm đại hên thì trúng.

 

[mrloves]

Các bạn xem file của mình nó như thế này nè giờ chỉ cần thêm 1 câu code cho nó tạo link nữa thôi
Bác Quanghai1969 và be09 giúp em nốt đi

 

[be_09]

Các bạn xem file của mình nó như thế này nè giờ chỉ cần thêm 1 câu code cho nó tạo link nữa thôi
Bác Quanghai1969 và be09 giúp em nốt đi

Bạn muốn làm ở sheet nào (nêu tên sheet), tách sheet ở cột nào (nêu tên cột) và lấy link ở đâu thì phải nêu cụ thể. Cái quan trọng là File phải có vài chục dòng dữ liệu để có cái mà thử chứ.

 

[mrloves]

Hi, file mình vừa gửi nội dung như sau, cột B khi điền một ký tự abc bất kỳ nó sẽ tạo sheet mới có tên giống hệt ký tự abc vừa gõ ở cột B
đồng thời cái sheet mới đó có nội dung copy lại giống hệt cái sheet có tên là Form. giờ nhờ các bạn viết thêm code tạo hyperlink cho cái chữ abc vừa viết chọn thẳng đến cái sheet của nó ý

 

[Quang_Hải]

Các bạn xem file của mình nó như thế này nè giờ chỉ cần thêm 1 câu code cho nó tạo link nữa thôi
Bác Quanghai1969 và be09 giúp em nốt đi

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B100]) Is Nothing Then
   If Target.Count = 1 Then
      Sheets("Form").Copy after:=Sheets(Sheets.Count)
      ActiveSheet.Name = Target.Value
      With Target.Parent
         .Hyperlinks.Add Target, "", Target & "!A1"
         .Select
      End With
   End If
End If
End Sub