Chuyên mục xử lý, gỡ rối code VBA

ndu96081631 · 24/9/13

Topic Những câu hỏi về code, xin giải thích các code... đã quá dài nên mình đóng nó lại và mở topic khác
Tất cả những bài viết liên quan đến việc nhờ giải thích, xử lý và gỡ rối code VBA, các bạn vui lòng đăng tại đây!
Cảm ơn

thangteo · 21/2/17

huuthang_bd đã viết:
Đã sửa y/c 1 và 2 theo ý bạn.

Anh Thắng ơi! Chèn âm thanh vào code khi kết thúc mỗi hiệp đấu sẽ có tiếng kêu báo hiệu được không ạ? Và khi hết thời gian nghỉ giữa 2 hiệp cũng có tiếng kêu báo cho 2 VĐV vào sân để chuẩn bị thi đấu tiếp hiệp tiếp theo được không ạ?
Anh xem giúp em với ạ.!

duynguyenkk · 11/5/17

https://drive.google.com/open?id=0B075UkAw9fa3SEQ0OUNqSThTWVU
NHỜ CÁC ANH XEM GIÚP CODE COPPY

Private Sub COPYTOPTVT_Click()
'
' Macro1 Macro
' Macro recorded 5/11/2017 by PC
'

'
Range("A15:Q44").Select
Range("Q44").Activate
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("PTVT").Select
Rows("5:5").Select
ActiveWindow.SmallScroll Down:=-12
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-18
End Sub
đoạn code trên em dùng macro record lại ko biết tại sao, nhờ các anh sửa giúp code giúp em với, em muốn khi bấm nút coppy (chỉ copy từ dòng 15 đến dòng màu vàng thì dữ liệu coppy vào sheet ptvt và ghi tiếp không ghi đè lên nhau

giaiphap · 11/5/17

duynguyenkk đã viết:
https://drive.google.com/open?id=0B075UkAw9fa3SEQ0OUNqSThTWVU
NHỜ CÁC ANH XEM GIÚP CODE COPPY

Private Sub COPYTOPTVT_Click()
'
' Macro1 Macro
' Macro recorded 5/11/2017 by PC
'

'
Range("A15:Q44").Select
Range("Q44").Activate
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("PTVT").Select
Rows("5:5").Select
ActiveWindow.SmallScroll Down:=-12
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-18
End Sub
đoạn code trên em dùng macro record lại ko biết tại sao, nhờ các anh sửa giúp code giúp em với, em muốn khi bấm nút coppy (chỉ copy từ dòng 15 đến dòng màu vàng thì dữ liệu coppy vào sheet ptvt và ghi tiếp không ghi đè lên nhau

Bạn sửa code lại thế này thử xem.

Mã:

Sub GPE()
    Sheets("CS4C-ML-XF93-T1.2").Range("A15:Q" & Sheets("CS4C-ML-XF93-T1.2").Range("A65000").End(xlUp).Row - 2).Copy
    Sheets("PTVT").Range("a65000").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    Application.CutCopyMode = False
End Sub

duynguyenkk · 12/5/17

giaiphap đã viết:
Bạn sửa code lại thế này thử xem.

Mã:

Sub GPE() Sheets("CS4C-ML-XF93-T1.2").Range("A15:Q" & Sheets("CS4C-ML-XF93-T1.2").Range("A65000").End(xlUp).Row - 2).Copy Sheets("PTVT").Range("a65000").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone Application.CutCopyMode = False End Sub

MÌNH SỬA LẠI CODE RỒI KHI CHẠY THỬ THẤY LỖI NÀY ANH XEM GIÚP EM VỚI

befaint · 12/5/17

duynguyenkk đã viết:
MÌNH SỬA LẠI CODE RỒI KHI CHẠY THỬ THẤY LỖI NÀY ANH XEM GIÚP EM VỚI

Bỏ gộp ô tại A3:A4, Nhập vào A4="TT" rồi mới chạy code đó.

duynguyenkk · 12/5/17

befaint đã viết:
Bỏ gộp ô tại A3:A4, Nhập vào A4="TT" rồi mới chạy code đó.

mình chỉ muốn copy từ dòng thứ 15 đến dòng màu vàng trong sheet thôi, như vậy em phai sua code nhu the nào anh

befaint · 12/5/17

duynguyenkk đã viết:
mình chỉ muốn copy từ dòng thứ 15 đến dòng màu vàng trong sheet thôi, như vậy em phai sua code nhu the nào anh

Code nó cho ra kết quả đúng như thế rồi còn muốn thế nào nữa?

duynguyenkk · 12/5/17

befaint đã viết:
Code nó cho ra kết quả đúng như thế rồi còn muốn thế nào nữa?

nhưng em sửa rồi mà vẫn chưa chạy dược anh ơi
lỗi như vầy anh

duynguyenkk · 13/5/17

MINH THỬ DC RỒI MẤY BẠN AH DO SHEET MÌNH ĐẶT TÊN TIẾNG VIỆT NÊN LỖI
CẢM ƠN TẤT CẢ ANH EM ĐÃ GIÚP MÌNH

sheiron88 · 13/5/17

chào cả nhà tình hình là e đang muốn lọc dữ liệu excel tự động lên mạng kiếm thì có một dòng lên như sau mà e ứng dụng thì không chạy nhờ các Anh xem giúp e cảm ơn mã như sau:
Private Sub textbox1_change()
ActiveSheet.ListObjects("bang").Range.AutoFilter Field:=1, _
Criterial:="*" & [b2] & "*", Operator:=x1filterValues
End Sub

NguyenNgocThuHien · 13/5/17

sheiron88 đã viết:
chào cả nhà tình hình là e đang muốn lọc dữ liệu excel tự động lên mạng kiếm thì có một dòng lên như sau mà e ứng dụng thì không chạy nhờ các Anh xem giúp e cảm ơn mã như sau:
Private Sub textbox1_change()
ActiveSheet.ListObjects("bang").Range.AutoFilter Field:=1, _
Criterial:="*" & [b2] & "*", Operator:=x1filterValues
End Sub

xlFilterValues chứ không phải là x1filterValues, copy code mà còn sai.

sheiron88 · 13/5/17

nó vẫn báo lỗi là run -time erros bạn ơi

giaiphap · 13/5/17

sheiron88 đã viết:
nó vẫn báo lỗi là run -time erros bạn ơi

Muốn biết nguyên nhân hãy up file lên và nêu mong muốn của mình ra đây.

sheiron88 · 13/5/17

Em muốn sử dụng 1 VBA để tại mục ô B2 sẽ lọc dữ liệu tự động từ bảng bên dưới ạ và e muốn xóa nhưng ô trống không có dữ liệu như hàng 15 chẳng hạn. e cảm ơn trước

giaiphap · 13/5/17

sheiron88 đã viết:
Em muốn sử dụng 1 VBA để tại mục ô B2 sẽ lọc dữ liệu tự động từ bảng bên dưới ạ và e muốn xóa nhưng ô trống không có dữ liệu như hàng 15 chẳng hạn. e cảm ơn trước

Bạn phải làm rõ chổ này, tiêu chí lộc là sao, bằng ô B2 mà cái nào bằng cột A, B, C... vậy giả sử bạn muốn bỏ hàng trống thì bạn nhập vào B2 cái gì?

sheiron88 · 13/5/17

thứ 1 e muốn xóa những dòng trống không có dữ liệu
thứ 2 e muốn tại ô b2 ví dụ tại ô B2 mình nhập từ than đá nó sẽ tự tìm được ô có B2 ạ. tìm dữ liệu giống như video này ạ

giaiphap · 13/5/17

sheiron88 đã viết:
thứ 1 e muốn xóa những dòng trống không có dữ liệu
thứ 2 e muốn tại ô b2 ví dụ tại ô B2 mình nhập từ than đá nó sẽ tự tìm được ô có B2 ạ. tìm dữ liệu giống như video này ạ

Cái video này nó lọc ở cột A mà bạn. Theo bạn mô tả hình như là lọc cột C thì phải. nếu đúng vậy thì bạn có thể sử dụng code sau.

Mã:

Private Sub textbox1_change()
ActiveSheet.Range("$A$3:$I$" & Range("A65000").End(xlUp).Row).AutoFilter Field:=3, Criteria1:="*" & [b2] & "*"
End Sub

sheiron88 · 13/5/17

Cảm ơn A nhiều, A có thể giúp e viết 1 đoạn lệnh để xóa các hàng trống không ạ.

giaiphap · 14/5/17

sheiron88 đã viết:
Cảm ơn A nhiều, A có thể giúp e viết 1 đoạn lệnh để xóa các hàng trống không ạ.

Bạn dùng code này cho file của bạn.

Mã:

Sub GPE()
On Error Resume Next
Dim i As Long, VungDel As Range, k As Long
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        k = 0
            For i = Sheet1.Range("A65000").End(xlUp).Row To 5 Step -1
                If WorksheetFunction.CountBlank(Sheet1.Range("A" & i).Resize(, 9)) = 9 Then
                    If VungDel Is Nothing Then
                        Set VungDel = Rows(i)
                    Else
                        Set VungDel = Union(VungDel, Rows(i))
                        k = k + 1
                        If (k = 100) And (Not VungDel Is Nothing) Then
                            VungDel.EntireRow.Delete
                            Set VungDel = Nothing
                            k = 0
                        End If
                    End If
                End If
            Next i
            If Not VungDel Is Nothing Then VungDel.EntireRow.Delete
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

sheiron88 · 14/5/17

cảm ơn A rất nhiều

Chuyên mục xử lý, gỡ rối code VBA

Huyền thoại GPE

Thành viên thường trực

Thành viên chính thức

==(^o^)==

Thành viên chính thức

File đính kèm

|||||||||||||

Thành viên chính thức

|||||||||||||

Thành viên chính thức

File đính kèm

Thành viên chính thức

Thành viên mới

Cute Black Cat

Thành viên mới

==(^o^)==

Thành viên mới

File đính kèm

==(^o^)==

Thành viên mới

==(^o^)==

Thành viên mới

==(^o^)==

Thành viên mới

Facebook

Group