This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Dim pasta, textoparapesquisa, colunainicial, colunafinal, sigla As String | |
Dim linha, contador, inicio, final, vazios As Long | |
Private Sub ComboBoxArquivoOrigem_Change() | |
ComboBoxPlanilhaOrigem.Clear | |
ListaPlanilhasdoArquivo | |
End Sub | |
Private Sub OptionButtonEmpresas_Click() | |
TextBoxCaminhoDestino.Text = pasta & "\empresas\" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Workbooks.Add | |
Set novoarquivo = ActiveWorkbook | |
Worksheets.Item(1).Name = "Planilha da fatura" | |
Worksheets.Item(1).Paste | |
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False | |
Range("A1").Activate | |
novoarquivo.SaveAs Filename:="C:\minhas_empresas\" & empresa & ".xls" | |
novoarquivo.Save | |
novoarquivo.Close |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Do | |
final = final + 1 | |
If InStr(ws.Cells(final, 1).Value, "Empresa:") > 0 Or vazios = 10 Then Exit Do | |
If IsEmpty(ws.Cells(final, 1)) Then vazios = vazios + 1 | |
Loop | |
Range("A" & inicio & ":K" & final - 1).Copy |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
While Not flag | |
If InStr(ws.Cells(linha, 1).Value, "Empresa:") > 0 Then |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Dim flag As Boolean | |
flag = False | |
Dim linha, contador, inicio, final As Long | |
linha = 1 | |
contador = 0 | |
inicio = 0 | |
final = 0 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Dim linha, contador, inicio, final, vazios As Long | |
Function FormatarNomeArquivo(str As String) As String | |
Dim i As Long, letters As String, letter As String | |
letters = vbNullString | |
For i = 1 To Len(str) | |
letter = VBA.Mid$(str, i, 1) | |
If (Asc(LCase(letter)) >= 97 And Asc(LCase(letter)) <= 122) Or letter = Chr(32) Then | |
letters = letters + letter | |
End If |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ignore_for_file: depend_on_referenced_packages | |
import 'dart:async'; | |
import 'package:flutter/foundation.dart'; | |
import 'package:flutter/material.dart'; | |
import 'package:font_awesome_flutter/font_awesome_flutter.dart'; | |
import 'package:gestor_commons/data/data.dart'; | |
import 'package:gestor_commons/images.dart'; | |
import 'package:gestor_commons/theme.dart'; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ignore_for_file: depend_on_referenced_packages, unnecessary_import | |
import 'dart:async'; | |
import 'package:flutter/cupertino.dart'; | |
import 'package:flutter/material.dart'; | |
import 'package:font_awesome_flutter/font_awesome_flutter.dart'; | |
import 'package:gestor_commons/data/data.dart'; | |
import 'package:gestor_commons/images.dart'; | |
import 'package:gestor_commons/theme.dart'; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ignore_for_file: depend_on_referenced_packages | |
import 'dart:async'; | |
import 'package:flutter/material.dart'; | |
import 'package:font_awesome_flutter/font_awesome_flutter.dart'; | |
import 'package:gestor_commons/data/data.dart'; | |
import 'package:gestor_commons/theme.dart'; | |
import 'package:gestor_commons/images.dart'; | |
import 'package:intl/intl.dart'; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import 'package:flutter/material.dart'; | |
import 'sidebar.dart'; | |
import 'theme.dart'; | |
import 'package:unit/docs/docs_list.dart'; | |
import 'package:font_awesome_flutter/font_awesome_flutter.dart'; | |
import 'package:carousel_slider/carousel_slider.dart'; | |
class HomePage extends StatefulWidget { | |
const HomePage({Key? key}) : super(key: key); |
NewerOlder