Hello everyone My name is Maurizio
And my problem is this: I've been trying for days to be able to create a database where I can store data from the Excel sheet on a file (TXT and so far so good.
But when I would like to take the Dayi from the File (TXT) to bring them back to the excel sheet; The program does it; but it brings me the data in a disorderly way to I have not yet understood why.
In addition it would be possible to create a Fiction always in VBA.
In the cell (M2) As for example if you wrote (10) or (Mauritius) Go to the TXT file to find all the reports of Maurizio ho of the number (10) and bring them on Sheet 2 in the first line that finds empty.
Thanks for all the help you want to give me on Thanks
(P.s) Insert Test File
Hi Maurizio
Try this for the IMPORT.
Hope this helps.
Sunny
Hello SunnyKow Thank you for your suggestion, but nothing works for me; As if I press the "Export" button it tells me that: (no object) and I select the last line of this procedure
Sub MultiArea2() 'Variabile Per L'inserimento Del (Numero 1 o Nullo) _ Nella, Riga Sottostante Alle Voci Che Compongono i _ Report, Per La Verifica Del (Vero e Del Falso) Che _ Influenzano La Visualità o Meno Delle _ (TexBox e Label) Dinamiche Che Compongono _ L'ossatura Del DataBase Che Vengono Create Nel _ Dell'Userform 6. Dim II As Long Dim RangeAll As Range, myMatch, lContr As Range With Sheets("Foglio1") Set RangeAll = .Range(.Range("A3"), .Cells(3, Columns.Count).End(xlToLeft)) End With RangeAll.Offset(1).ClearContents For Each lContr In Foglio1.Range("A3").Value
While if I press the (find) key I can (I can not find the path) and highlight this last line of this procedure
Sub Salva_Su_File_TXT() Dim LR Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer myFile = ThisWorkbook.Path & "UtilityDatabase3.Txt" 'Set rng = Selection LR = Cells(Rows.Count, "B").End(xlUp).Row Set rng = Range("A3:K" & LR) Open myFile For Output As #1
I have also tried to put your file in the appropriate folder but nothing to do continues to give me error.
Thanks anyway for your Interessamento Greetings from A.Maurizio
