Posts by aroig07

Hello there !!!

Sorry I am posting all my questions here, just that I find that in this forum people are more responsive I have this code that works, but not the way I want it to. I want the loop to delete all the rows that match the cell value with the click of the button. At the moment I have to click through and they delete one by one with each click. Is there a way that it can just go over the work Sheet and delete at the same time ???

Thank youuu in advance !!!

Sub DeleteMyRows()

Dim ws As Worksheet
Dim LastRow As Integer
Dim student As String
Dim i As Integer

Set ws = Worksheets("DataBase")
LastRow = ws.Cells(Rows.Count, "C").End(xlUp).Row

student = Worksheets("Summary").Cells(7, "H")

i = 1

    Do While ws.Cells(i, 3) <> ""
      If ws.Cells(i, 3).Value = student Then
        ws.Cells(i, 3).EntireRow.Delete
      End If
    
    i = i + 1
    
    Loop
      
End Sub

These help me a lot for future projects

My problem per se is more that I have 3 files which are exactly alike the only difference is the data in them, but they have the same columns and everything. I need to combine to generate a report on a weekly basis. Though Access was the way but maybe Power Query is the way to go. I have to double check if my clients software has Power Query because if not it will not work on their end.

Thanks for all your help !

Hello there !!!

I am new to the forum and had a question regarding the connection between Acces and Excel. I have been using Excel for a while to do simple macros, but have not worked ever with Access. My excel is getting slow and I read that Access could be the way to go. I have tried to connect my Excel to Access directly, but it does not allow for the document to be xlsm format.

Is this just me or is there a way to automatically connect Excel macros to Access. Please help !!!

Thank you for your message !!!

I actually figured out why it was not woking, and it was due to having a 1 instead of the i in the search.

What I had:

    For i = 2 To LastRow
    If ws.Cells(i, 12).Value = duplStr And ws.Cells(1, 13).Value = "Pass" Then
    MsgBox "Student already completed and passed this level."

How it worked:

    For i = 2 To LastRow
    If ws.Cells(i, 12).Value = duplStr And ws.Cells(i, 13).Value = "Pass" Then
    MsgBox "Student already completed and passed this level."

Hope this can help someone else that might be having this issue.

Hello there !!!

I am writting because I am having issues with identifying how to have a message box pop up whe the user selects an option in the userform that is already in the database. I have a userform for a tutor center that needs to identify based on the values entered on 4 TextBoxes if that test the student has already completed.

What I need is a message box to pop up when the teacher selects an option that the student already has passed. The values to search are ComboBox2 (student name), ComboBox7 (module name), ComboBox9 (belt), and ComboBox8 (level), which can be found in the database in Column L (Helper Column) and verify if in Column M the status is Pass. This is the code I have at the moment, but it does not pop up with the message.

Dim ws As Worksheet
Dim duplStr As String
Dim LastRow As Long
Dim i As Integer

Set ws = Worksheets("DataBase")
LastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
duplStr = ComboBox2.Text & ComboBox7.Text & ComboBox9.Text & ComboBox8.Text

For i = 2 To LastRow
If ws.Cells(i, 12).Value = duplStr And ws.Cells(1, 13).Value = "Pass" Then
MsgBox "Student already completed and passed this level."
Exit Sub
End If
Next i

Can someone help me out with this. I believe its simple, but not understand why is not working.