I know Im asking the wrong place but does anyone know of a tool to log back into an instagram account? I was stupid forgot my account password. I love any tips you can offer me.
Come già detto, i tuoi video sono sempre molto chiari e interessanti. Aggiungo che conviene vederli sempre fino alla fine, perchè si possono cogliere spunti interessanti, magari non centrano con il tema che stai trattando, oppure trattasi di ripetizione (es. questa volta è stato anche utile scoprire che si può far riferimento ad una cella senza indicare Range) . Ottimo come al solito.
Salve Mr.Gerardo, bene tutto e di facile comprensione, mentre ti guardo... il difficile viene dopo, ricordarsi tutti i passaggi. Ma quello è un problema mio, di comprendonio ! Continua così, che prima o poi ci arrivo anch'io... Saluti, Giampiero
Come sempre bravissimo Gerardo. Ancora un'altra spiegazione eccellente. Concordo sulla necessità di insistere sui cicli che sono fondamentali per il VBA ma in generale per tutti i linguaggi di programmazione. Al prossimo video.
Scusami Gerry una domanda stupida. Se inizio a registrare una macro e poi la interrompo posso riprendere la registrazione dal punto in cui l'ho interrotta? grazie mille
Ciao Gerardo, utilizzo questa macro in un foglio xlsm per copiare dei dati di vari file xlsx in una cartella specifica. Tutto bene nel senso che il file funziona correttamente prelevando da tutti i file i dati dalla cella B1 alla cella B10 creando un database. L'unico dato che salta è quello della cella B11 che nonostante le mille prove non riesco a far copiare correttamente: posto il codice nella speranza che tu possa capire l'errore: Riepilogo cosa fa la macro: 1. da una macro nel file xlsm preleva da ogni file xlsx presente nella cartella i dati dalla cella B1 alla cella B11 creando per ognuno una riga di database nel file xlsm 2. prende tutti i file di cui ha copiato i dati e li sposta in un altra cartella Cosa non funziona: 1. L'unico dato che non viene prelevato nel file xlsm è la cella B11 dei file xlsx (per il resto funziona tutto) Questa la Macro che uso: Option Explicit Sub esporta_e_muovi() Const folder_from = "Z:\Altri computer\Il mio computer\Archivio\UFFICO BOOKING\1 PREVENTIVI E VOUCHER\PREVENTIVI EXCEL\*.xlsx" Const folder_to = "Z:\Altri computer\Il mio computer\Archivio\UFFICO BOOKING\1 PREVENTIVI E VOUCHER\PREVENTIVI EXCEL\excel esportati" Dim percorso As String Dim nomeFile As String Dim wbDatabase As Workbook Dim WB As Workbook Dim sh As Worksheet Dim s As String Dim data_preventivo As String Dim uR As Long Dim arr() As Variant Dim j As Long Dim k As Integer Dim g As Integer Dim ei As Object
With Application .Cursor = xlWait .DisplayAlerts = False .ScreenUpdating = False End With Set ei = CreateObject("Scripting.FileSystemObject") Set wbDatabase = ThisWorkbook 'file database percorso = "Z:\Altri computer\Il mio computer\Archivio\UFFICO BOOKING\1 PREVENTIVI E VOUCHER\PREVENTIVI EXCEL\" '''percorso = ThisWorkbook.Path & "\preventivi excel\" '''debug franz nomeFile = Dir(percorso)
Do While nomeFile "" k = ei.GetFolder(percorso).Files.Count g = g + 1 Application.StatusBar = "Avanzamento ... file " & g & "/" & k If nomeFile wbDatabase.Name Then Set WB = Application.Workbooks.Open(percorso & nomeFile) Set sh = WB.Worksheets(1) data_preventivo = Split(sh.Range("N46"))(3) With wbDatabase.Sheets(1) .AutoFilterMode = False uR = .Range("A65535").End(xlUp).Row + 1 .Cells(uR, 1) = IIf(uR = 2, 1, Val(.Cells(uR - 1, 1)) + 1) arr = Application.Transpose(sh.Range("B1:B11")) For j = 11 To 5 Step -1 arr(j) = arr(j - 1) Next arr(4) = Format(data_preventivo, "dd/mm/yyyy") .Range(.Cells(uR, 2), .Cells(uR, 12)) = arr .Cells(uR, "E") = "'" & arr(4) .Cells(uR, "F").NumberFormat = "General" .Cells(uR, "E").HorizontalAlignment = xlRight End With WB.Close False End If nomeFile = Dir Loop 'prepara la stringa di comando per lo spostamento da un folder all'altro s = "cmd.exe /c move /Y ""%1"" ""%2""" s = Replace(s, "%1", folder_from) s = Replace(s, "%2", folder_to)
'questa istruzione esegue il comando di spostamento. Shell s wbDatabase.Save
With Application .Cursor = xlDefault .DisplayAlerts = True .ScreenUpdating = True End With
MsgBox "Dati Importati e File Spostati. File database salvato.", vbInformation, "OK" Application.StatusBar = "" End Sub Spero tu riesca a darmi una mano. Grazie mille
Grazie Gerardo per quello che pubblichi, é molto interessante, sei molto chiaro nelle spiegazioni!
Complimenti! Molto chiaro e interessante. Bravo Sig. Gerardo. Mitico! Ho trovato Assolutamente tutte le risposte alle mie domande.
Poche e semplici righe di codici; Tanti concetti spiegati; Tanti risultati ottenuti! Bravo sig.Gerardo! Grazie.
I know Im asking the wrong place but does anyone know of a tool to log back into an instagram account?
I was stupid forgot my account password. I love any tips you can offer me.
@Reed Mohammed instablaster ;)
Ogni volta si impara qualcosa di bello. Grazie Gerardo per le tue belle lezioni.
Ciao ROby grazie 😄
Grande Gerry e grazie ancora di tutto
Come già detto, i tuoi video sono sempre molto chiari e interessanti. Aggiungo che conviene vederli sempre fino alla fine, perchè si possono cogliere spunti interessanti, magari non centrano con il tema che stai trattando, oppure trattasi di ripetizione (es. questa volta è stato anche utile scoprire che si può far riferimento ad una cella senza indicare Range) . Ottimo come al solito.
Bravo Gerry e chi ti ferma più, ciao grande.
Interessante ad attuale.Mega complimenti
Salve Mr.Gerardo, bene tutto e di facile comprensione, mentre ti guardo... il difficile viene dopo, ricordarsi tutti i passaggi. Ma quello è un problema mio, di comprendonio ! Continua così, che prima o poi ci arrivo anch'io... Saluti, Giampiero
Come sempre bravissimo Gerardo. Ancora un'altra spiegazione eccellente. Concordo sulla necessità di insistere sui cicli che sono fondamentali per il VBA ma in generale per tutti i linguaggi di programmazione. Al prossimo video.
Bel video e bello l'entusiamo che ci metti a fare e a spiegare. Ciao
Sempre tutto molto interessante, complimenti!
Che dire.... ottimo video!
Ottimo continua cosi
👍
Scusami Gerry una domanda stupida. Se inizio a registrare una macro e poi la interrompo posso riprendere la registrazione dal punto in cui l'ho interrotta? grazie mille
Ciao Giovanni, purtroppo no hai due macro separate
Purtroppo immaginavo ma volevo la tua conferma
Non riesco a controllare che venga inserita una data corretta. Se inserisco 25666 nel campo data me lo trasforma in una data strana.
Ciao Gerardo, utilizzo questa macro in un foglio xlsm per copiare dei dati di vari file xlsx in una cartella specifica. Tutto bene nel senso che il file funziona correttamente prelevando da tutti i file i dati dalla cella B1 alla cella B10 creando un database. L'unico dato che salta è quello della cella B11 che nonostante le mille prove non riesco a far copiare correttamente: posto il codice nella speranza che tu possa capire l'errore:
Riepilogo cosa fa la macro:
1. da una macro nel file xlsm preleva da ogni file xlsx presente nella cartella i dati dalla cella B1 alla cella B11 creando per ognuno una riga di database nel file xlsm
2. prende tutti i file di cui ha copiato i dati e li sposta in un altra cartella
Cosa non funziona:
1. L'unico dato che non viene prelevato nel file xlsm è la cella B11 dei file xlsx (per il resto funziona tutto)
Questa la Macro che uso:
Option Explicit
Sub esporta_e_muovi()
Const folder_from = "Z:\Altri computer\Il mio computer\Archivio\UFFICO BOOKING\1 PREVENTIVI E VOUCHER\PREVENTIVI EXCEL\*.xlsx"
Const folder_to = "Z:\Altri computer\Il mio computer\Archivio\UFFICO BOOKING\1 PREVENTIVI E VOUCHER\PREVENTIVI EXCEL\excel esportati"
Dim percorso As String
Dim nomeFile As String
Dim wbDatabase As Workbook
Dim WB As Workbook
Dim sh As Worksheet
Dim s As String
Dim data_preventivo As String
Dim uR As Long
Dim arr() As Variant
Dim j As Long
Dim k As Integer
Dim g As Integer
Dim ei As Object
With Application
.Cursor = xlWait
.DisplayAlerts = False
.ScreenUpdating = False
End With
Set ei = CreateObject("Scripting.FileSystemObject")
Set wbDatabase = ThisWorkbook 'file database
percorso = "Z:\Altri computer\Il mio computer\Archivio\UFFICO BOOKING\1 PREVENTIVI E VOUCHER\PREVENTIVI EXCEL\"
'''percorso = ThisWorkbook.Path & "\preventivi excel\" '''debug franz
nomeFile = Dir(percorso)
Do While nomeFile ""
k = ei.GetFolder(percorso).Files.Count
g = g + 1
Application.StatusBar = "Avanzamento ... file " & g & "/" & k
If nomeFile wbDatabase.Name Then
Set WB = Application.Workbooks.Open(percorso & nomeFile)
Set sh = WB.Worksheets(1)
data_preventivo = Split(sh.Range("N46"))(3)
With wbDatabase.Sheets(1)
.AutoFilterMode = False
uR = .Range("A65535").End(xlUp).Row + 1
.Cells(uR, 1) = IIf(uR = 2, 1, Val(.Cells(uR - 1, 1)) + 1)
arr = Application.Transpose(sh.Range("B1:B11"))
For j = 11 To 5 Step -1
arr(j) = arr(j - 1)
Next
arr(4) = Format(data_preventivo, "dd/mm/yyyy")
.Range(.Cells(uR, 2), .Cells(uR, 12)) = arr
.Cells(uR, "E") = "'" & arr(4)
.Cells(uR, "F").NumberFormat = "General"
.Cells(uR, "E").HorizontalAlignment = xlRight
End With
WB.Close False
End If
nomeFile = Dir
Loop
'prepara la stringa di comando per lo spostamento da un folder all'altro
s = "cmd.exe /c move /Y ""%1"" ""%2"""
s = Replace(s, "%1", folder_from)
s = Replace(s, "%2", folder_to)
'questa istruzione esegue il comando di spostamento.
Shell s
wbDatabase.Save
With Application
.Cursor = xlDefault
.DisplayAlerts = True
.ScreenUpdating = True
End With
MsgBox "Dati Importati e File Spostati. File database salvato.", vbInformation, "OK"
Application.StatusBar = ""
End Sub
Spero tu riesca a darmi una mano. Grazie mille