joanas

Bom dia, é possível pegar no valor de uma textbox do access e inserir numa célula do excel?

Bom dia, é possível pegar no valor de uma textbox do access e inserir numa célula do excel?

bom dia, como faço para compactar uma bd que estou a trabalhar através do vba?

Bom dia, estou a trabalhar no vba no access (ficheiro com formato accdb) e queria guardar uma copia do ficheiro com o mesmo formato (accdb). Podem ajudar? Obrigada

Bom dia, estou a tentar criar uma macro que permita: - percorrer uma range sem fim determinado de linhas nem colunas.. e sempre que encontrar uma célula amarela (ColorIndex = 36), para e copia essa célula (Exemplo: A1) e cola noutro worbook, na mesma célula (A1), o valor que essa célula contem Exemplo: workbook - Teste1 Sheet - Sheet1 Copia célula A1 Workbook - Teste2 Sheet - Sheet2 Cola célula A1 na célula A1 do Teste2 O que já fiz: Sub CopiarColar() 'Dim Linha, Coluna As Integer 'Dim cel As Range Dim FinalRow As Integer Dim i As Integer i = 0 FinalRow = Range("A65536").End(xlUp).Row Coluna = Range("A65536").End(xlLeft).Column Workbooks("Teste1.xlsm").Worksheets("Sheet1").Activate Do While Linha <= FinalRow If Cells(i + 1, 6).Interior.ColorIndex = 36 Then Workbooks("Teste1.xlsm").Worksheets("Sheet1").Activate Cells(i + 1, 6).Select Selection.Copy Workbooks("Teste2.xlsm").Worksheets("Sheet1").Activate Cells(i + 1, 6).Select ActiveSheet.Paste Application.CutCopyMode = False End If i = i + 1 Loop End Sub agora falta-me percorrer por colunas, mas estou com duvidas Alguém pode ajudar? Obrigada

Bom dia, estou a tentar gerar uma macro para eliminar linhas de uma coluna (K) que contenham zeros. Os dados que recebo para essa coluna variam mes a mes. Assim nunca sei o numero de registo que vou receber.. dai usar "Cells(i, 11).Value <> "" " quando tiver um campo sem valores, sei que cheguei ao fim dos registos O código não está a funcionar. Alguém me pode ajudar? ----------------------------------- Acho que já consegui com este código: Sub eliminar_zeros() FinalRow = Range("A65536").End(xlUp).Row i = 3 Do While i <= FinalRow If Cells(i, 1) = 0 Then Cells(i, 1).EntireRow.Delete Else i = i + 1 End If Loop End Sub