Aliensrnear
New Member
- Joined
- Oct 6, 2021
- Messages
- 2
- Office Version
- 365
- Platform
- Windows
Good morning everyone,
I am making a new sheet to use at work so that multiple users can record any errors or issues on the production floor into a "log" that can be referenced later. Filling out the text cells and having them transfer, NO ISSUES whatsoever. Something I'm trying to implement is the ability to upload a picture so that we can reference it in the future if we ever run into the same issues. I am able to insert a picture to the three cells, as you can see in the picture I've uploaded with this. What I am needing help on as I'm just kind of lost right now, is how can I copy these pictures and put them into the database? I want to put them in the cells in the same row at the end.
Here is what I have in vba to get the text cells to copy over:
Select Case machine
Case "Trumpf Laser"
Range("A3:AB3").Copy
Sheets("Trumpf Database").Select
Do While (IsEmpty(Range("A" & emptyrow))) = False
emptyrow = emptyrow + 1
Loop
Range("A" & emptyrow).PasteSpecial Paste:=xlPasteValues
Range("A" & emptyrow).PasteSpecial Paste:=xlPasteFormats
Sheets("Main").Select
ClearForm
I will mention that I am fairly new at VBA in general, and one of my biggest obstacles in this has been copy and pasting. I can never figure out a .paste command or something that will work that easy. I appreciate any thought or help with this! Let me know what you think.
*I am having difficulty uploading images to this website. Hopefully I'm allowed to post a link to get around this:
What is the file size max? It says my images are too large, but they are less than 600kb each.
I am making a new sheet to use at work so that multiple users can record any errors or issues on the production floor into a "log" that can be referenced later. Filling out the text cells and having them transfer, NO ISSUES whatsoever. Something I'm trying to implement is the ability to upload a picture so that we can reference it in the future if we ever run into the same issues. I am able to insert a picture to the three cells, as you can see in the picture I've uploaded with this. What I am needing help on as I'm just kind of lost right now, is how can I copy these pictures and put them into the database? I want to put them in the cells in the same row at the end.
Here is what I have in vba to get the text cells to copy over:
Select Case machine
Case "Trumpf Laser"
Range("A3:AB3").Copy
Sheets("Trumpf Database").Select
Do While (IsEmpty(Range("A" & emptyrow))) = False
emptyrow = emptyrow + 1
Loop
Range("A" & emptyrow).PasteSpecial Paste:=xlPasteValues
Range("A" & emptyrow).PasteSpecial Paste:=xlPasteFormats
Sheets("Main").Select
ClearForm
I will mention that I am fairly new at VBA in general, and one of my biggest obstacles in this has been copy and pasting. I can never figure out a .paste command or something that will work that easy. I appreciate any thought or help with this! Let me know what you think.
*I am having difficulty uploading images to this website. Hopefully I'm allowed to post a link to get around this:
What is the file size max? It says my images are too large, but they are less than 600kb each.