Sửa code để chèn dòng và điền nội dung (3 người xem)

[vc_đi chơi]

Xin chào các anh/chị trên diễn đàn.
Em có bài toán đã được các anh/chị trên diễn đàn giúp đỡ. Nhưng khi ứng dụng vào công việc thì có vấn đề sau xin được nhờ các anh/chị giúp em với ạ!
Code hiện tại xét đến mã CV (cột B) và Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) trong Sheet (Toi_TuKhoa) để chèn dòng và điền dữ liệu vào sheet (Danh muc NT cong viec).
Xin được anh/chị giúp em: chỉ xét đến Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) để chèn dòng và điền nội dung vào Sheet (Danh muc NT cong viec) <Bỏ đi, không xết đến mã CV (cột B) >
Trong file đính kèm có code.
Em xin cảm ơn nhiều!

Bài đã được tự động gộp: 7/8/20

Xin chào các anh/chị trên diễn đàn.
Em có bài toán đã được các anh/chị trên diễn đàn giúp đỡ. Nhưng khi ứng dụng vào công việc thì có vấn đề sau xin được nhờ các anh/chị giúp em với ạ!
Code hiện tại xét đến mã CV (cột B) và Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) trong Sheet (Toi_TuKhoa) để chèn dòng và điền dữ liệu vào sheet (Danh muc NT cong viec).
Xin được anh/chị giúp em: chỉ xét đến Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) để chèn dòng và điền nội dung vào Sheet (Danh muc NT cong viec) <Bỏ đi, không xết đến mã CV (cột B) >
Em xin cảm ơn nhiều!

Anh thnghiachau em xin phép được lấy bài anh đã giúp để nhờ được chỉnh sửa.
Mong anh bớt chút thời gian để giúp em một lần nữa ạ!

Tự động chèn dòng và điền nội dung vào ô theo từ khóa

Xin chào các anh/chị trên diễn đàn! Em có bài toán sau xin được sự giúp đỡ để em có thể áp dụng vào công việc. Em muốn được giúp đỡ một đoạn code để khi chạy code tự động chèn dòng lên phía ngay bên trên dòng đó và điền nội dung vào ô cần điền theo từ khóa đầu câu nội dung trong ô, cụ thể như...

www.giaiphapexcel.com

 

[huuthang_bd]

Chưa ưng thì vô chủ đề đó hỏi tiếp, cớ sao lại mở chủ đề mới.

 

[vc_đi chơi]

Chưa ưng thì vô chủ đề đó hỏi tiếp, cớ sao lại mở chủ đề mới.

Dạ! vậy giờ phải làm sao ạ?
Lần sau em sẽ rút kinh nghiệm.

 

[huuthang_bd]

Dạ! vậy giờ phải làm sao ạ?

Thì quay lại đó hỏi tiếp chứ làm sao

 

[vc_đi chơi]

Thì quay lại đó hỏi tiếp chứ làm sao

Vâng, chủ đề này vẫn để nguyên vậy à anh? có ảnh hưởng gì không ạ?

 

[huuthang_bd]

Tôi chợt nhận ra không chỉ riêng excel hay macro mà cái gì bạn cũng mang đi hỏi

 

[vc_đi chơi]

Tôi chợt nhận ra không chỉ riêng excel hay macro mà cái gì bạn cũng mang đi hỏi

Vâng, cũng trên diễn đàn có anh/chị bảo em "tay nhanh hơn não".
Em sẽ xem xét lại bản thân!

 

[vc_đi chơi]

Xin chào các anh/chị trên diễn đàn.
Em có bài toán đã được các anh/chị trên diễn đàn giúp đỡ. Nhưng khi ứng dụng vào công việc thì có vấn đề sau xin được nhờ các anh/chị giúp em với ạ!
Code hiện tại xét đến mã CV (cột B) và Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) trong Sheet (Toi_TuKhoa) để chèn dòng và điền dữ liệu vào sheet (Danh muc NT cong viec).
Xin được anh/chị giúp em: chỉ xét đến Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) để chèn dòng và điền nội dung vào Sheet (Danh muc NT cong viec) <Bỏ đi, không xết đến mã CV (cột B) >
Trong file đính kèm có code.
Em xin cảm ơn nhiều!

View attachment 242573View attachment 242575

Bài đã được tự động gộp: 7/8/20

Anh thnghiachau em xin phép được lấy bài anh đã giúp để nhờ được chỉnh sửa.
Mong anh bớt chút thời gian để giúp em một lần nữa ạ!

Tự động chèn dòng và điền nội dung vào ô theo từ khóa

Xin chào các anh/chị trên diễn đàn! Em có bài toán sau xin được sự giúp đỡ để em có thể áp dụng vào công việc. Em muốn được giúp đỡ một đoạn code để khi chạy code tự động chèn dòng lên phía ngay bên trên dòng đó và điền nội dung vào ô cần điền theo từ khóa đầu câu nội dung trong ô, cụ thể như...

www.giaiphapexcel.com

Các anh/chị giúp em với ạ!

 

[Maika8008]

Các anh/chị giúp em với ạ!

Đọc đi đọc lại yêu cầu của bạn rồi chạy các code trong file nhưng chẳng hiểu bạn muốn gì, Code chẳng xét gì đến mã trong cột B của sheet Toi_TuKhoa như bạn trình bày cả.

 

[HieuCD]

Xin chào các anh/chị trên diễn đàn.
Em có bài toán đã được các anh/chị trên diễn đàn giúp đỡ. Nhưng khi ứng dụng vào công việc thì có vấn đề sau xin được nhờ các anh/chị giúp em với ạ!
Code hiện tại xét đến mã CV (cột B) và Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) trong Sheet (Toi_TuKhoa) để chèn dòng và điền dữ liệu vào sheet (Danh muc NT cong viec).
Xin được anh/chị giúp em: chỉ xét đến Xét từ khóa đầu câu tương ứng với nội dung CV ( cột C ) để chèn dòng và điền nội dung vào Sheet (Danh muc NT cong viec) <Bỏ đi, không xết đến mã CV (cột B) >
Trong file đính kèm có code.
Em xin cảm ơn nhiều!

View attachment 242573View attachment 242575

Bài đã được tự động gộp: 7/8/20

Anh thnghiachau em xin phép được lấy bài anh đã giúp để nhờ được chỉnh sửa.
Mong anh bớt chút thời gian để giúp em một lần nữa ạ!

Tự động chèn dòng và điền nội dung vào ô theo từ khóa

Xin chào các anh/chị trên diễn đàn! Em có bài toán sau xin được sự giúp đỡ để em có thể áp dụng vào công việc. Em muốn được giúp đỡ một đoạn code để khi chạy code tự động chèn dòng lên phía ngay bên trên dòng đó và điền nội dung vào ô cần điền theo từ khóa đầu câu nội dung trong ô, cụ thể như...

www.giaiphapexcel.com

xem code

Option Compare Text
Sub main()
  Call ChenDong_GhiLayMau_exe2(True, True)
End Sub
Sub ChenDong_GhiLayMau_exe2(ByVal blChenDong As Boolean, ByVal blGhiLayMau As Boolean)
  Dim sArr(), tmp$
  Dim sRow&, eRow&, i&, r&

  Application.ScreenUpdating = False
  With Sheets("Toi_TuKhoa")
    sArr = .Range("C10:I" & .Range("C" & Rows.Count).End(xlUp).Row).Value
  End With
  sRow = UBound(sArr)
 
  Sheets("Danh muc NT cong viec").Select
  eRow = Range("D" & Rows.Count).End(xlUp).Row
  For i = eRow To 9 Step -1
    If Range("A" & i).Value <> Empty Then
      If Range("A" & i).Value <> Range("A" & i - 1).Value And Range("A" & i).Value <> Range("A" & i + 1).Value Then
        tmp = Range("G" & i).Value
        For r = 1 To sRow
          If tmp Like sArr(r, 1) & "*" Then
            Range("D" & i).EntireRow.Insert
            Range("A" & i + 1).Resize(, 65).Copy
            Range("A" & i).PasteSpecial Paste:=xlPasteFormats
            Application.CutCopyMode = False
            
            Range("A" & i).Value = Range("A" & i + 1).Value
            Range("D" & i).Value = sArr(r, 3)
            Range("F" & i).Value = Range("F" & i + 1).Value
            If sArr(r, 4) = Empty Then sArr(r, 4) = sArr(r, 1)
            Range("G" & i).Value = Replace(Range("G" & i + 1), sArr(r, 1), sArr(r, 4))

            If blGhiLayMau Then
              If Range("E" & i + 2) = "LM" Then
                If sArr(r, 7) <> Empty Then
                  Range("H" & i + 2) = Replace(Range("G" & i + 1), sArr(r, 1), sArr(r, 7))
                End If
              End If
            End If
            Range("BM" & i) = "x"
            Exit For
          End If
        Next r
      End If
    End If
  Next i
  Application.ScreenUpdating = True
End Sub

 

[vc_đi chơi]

xem code

Option Compare Text
Sub main()
  Call ChenDong_GhiLayMau_exe2(True, True)
End Sub
Sub ChenDong_GhiLayMau_exe2(ByVal blChenDong As Boolean, ByVal blGhiLayMau As Boolean)
  Dim sArr(), tmp$
  Dim sRow&, eRow&, i&, r&

  Application.ScreenUpdating = False
  With Sheets("Toi_TuKhoa")
    sArr = .Range("C10:I" & .Range("C" & Rows.Count).End(xlUp).Row).Value
  End With
  sRow = UBound(sArr)

  Sheets("Danh muc NT cong viec").Select
  eRow = Range("D" & Rows.Count).End(xlUp).Row
  For i = eRow To 9 Step -1
    If Range("A" & i).Value <> Empty Then
      If Range("A" & i).Value <> Range("A" & i - 1).Value And Range("A" & i).Value <> Range("A" & i + 1).Value Then
        tmp = Range("G" & i).Value
        For r = 1 To sRow
          If tmp Like sArr(r, 1) & "*" Then
            Range("D" & i).EntireRow.Insert
            Range("A" & i + 1).Resize(, 65).Copy
            Range("A" & i).PasteSpecial Paste:=xlPasteFormats
            Application.CutCopyMode = False
         
            Range("A" & i).Value = Range("A" & i + 1).Value
            Range("D" & i).Value = sArr(r, 3)
            Range("F" & i).Value = Range("F" & i + 1).Value
            If sArr(r, 4) = Empty Then sArr(r, 4) = sArr(r, 1)
            Range("G" & i).Value = Replace(Range("G" & i + 1), sArr(r, 1), sArr(r, 4))

            If blGhiLayMau Then
              If Range("E" & i + 2) = "LM" Then
                If sArr(r, 7) <> Empty Then
                  Range("H" & i + 2) = Replace(Range("G" & i + 1), sArr(r, 1), sArr(r, 7))
                End If
              End If
            End If
            Range("BM" & i) = "x"
            Exit For
          End If
        Next r
      End If
    End If
  Next i
  Application.ScreenUpdating = True
End Sub

Em cảm ơn anh!
Như nội dung đăng lên được xin giúp:
Anh đã giúp em chèn thêm dòng và điền nội dung lấy mẫu.
Xin được anh giúp:
Không xét đến nội dung mã CV (trong cột B)
1/ Chỉ Chèn dòng: Xét Nội dung (nếu không trống) cột F để đối chiếu với nội dung tương ứng trong cột C của Sheet (Toi_TuKhoa) để chèn dòng trong Sheet (Danh muc NT cong viec). Trong Sheet (Toi_TuKhoa) nếu cột C có lữ liệu mà tương ứng với nó cột F không điền dữ liệu thì dòng không chèn)
2/ Chỉ Ghi nội dung lấy mẫu: Xét Nội dung (nếu không trống) cột I để đối chiếu với nội dung tương ứng trong cột C của Sheet (Toi_TuKhoa) để điền nội dung lấy mẫu vào cột H trong Sheet (Danh muc NT cong viec). Trong Sheet (Toi_TuKhoa) nếu cột C có lữ liệu mà tương ứng với nó cột I không điền dữ liệu thì không điền nội dung)
3/ Ngược lại là có thể xóa những cái đã tạo ra ở trên cụ thể
+ Xóa dòng được chèn và ghi lấy mẫu
+ Xóa chèn dòng
+ Xóa ghi lấy mẫu.
Anh làm ơn giúp em với ạ!
Em cảm ơn anh!

 

[vc_đi chơi]

Đọc đi đọc lại yêu cầu của bạn rồi chạy các code trong file nhưng chẳng hiểu bạn muốn gì, Code chẳng xét gì đến mã trong cột B của sheet Toi_TuKhoa như bạn trình bày cả.

Bài em tải lên được giúp là đã chèn được dòng, điền được nội dung như mong muốn.
Nhưng ở trong sheet(Toi_TuKhoa) có căn cứ vào mã CV (cột B) và Xét từ khóa đầu câu tương ứng với nội dung CV (cột C) để chèn dòng và điền nội dung trong sheet(Danh muc NT cong viec) .Giờ em muốn chèn dòng và điền nội dung chỉ xét đến Xét từ khóa đầu câu tương ứng với nội dung CV (cột C) thôi, không thuộc vào mã CV (cột B) trong sheet (Toi_TuKhoa) nữa ạ!
Em có tải file #1 đính kèm, cảm ơn anh/chị đã quan tâm!