Oberdan Brito OberdanBrito
OberdanBrito
/ gist:8fa25738036b0fb4fff17fa24a62ba39
Created
March 21, 2023 00:20
This file contains hidden or 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\" |
OberdanBrito
/ gist:94f62e2f68b4fa09c84a2b4d279ac553
Created
March 20, 2023 20:27
This file contains hidden or 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 |
OberdanBrito
/ gist:1a1cdadbac66dd850136d87f39961530
Created
March 20, 2023 20:27
This file contains hidden or 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 |
OberdanBrito
/ gist:a416c8c59a365392926f45f131ff7964
Created
March 20, 2023 20:25
This file contains hidden or 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 |
OberdanBrito
/ gist:318ff7ce407aa16cef8f3610fefd0182
Created
March 20, 2023 20:23
This file contains hidden or 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 |
OberdanBrito
/ gist:253fc530539c3e72d6268826829151be
Created
March 20, 2023 17:46
Código e VBA para separar informações em diferntes arquivos
This file contains hidden or 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 hidden or 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'; |
OberdanBrito
/ contacts.dart
Created
December 30, 2022 19:41
Página para gestão de contatos do dispositivo. Através desta é possível adicionar, remover, pesquisar e criar uma lista de convidados
This file contains hidden or 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 hidden or 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 hidden or 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