Skip to content

Instantly share code, notes, and snippets.

View OberdanBrito's full-sized avatar

Oberdan Brito OberdanBrito

View GitHub Profile
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\"
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
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
While Not flag
If InStr(ws.Cells(linha, 1).Value, "Empresa:") > 0 Then
Dim flag As Boolean
flag = False
Dim linha, contador, inicio, final As Long
linha = 1
contador = 0
inicio = 0
final = 0
@OberdanBrito
OberdanBrito / gist:253fc530539c3e72d6268826829151be
Created March 20, 2023 17:46
Código e VBA para separar informações em diferntes arquivos
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
@OberdanBrito
OberdanBrito / contacts_list.dart
Created December 30, 2022 22:28
gerenciamento de contatos
// 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
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
// 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';
@OberdanBrito
OberdanBrito / contacts_list.dart
Created December 27, 2022 10:46
Lista de contatos
// 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';
@OberdanBrito
OberdanBrito / home.dart
Created December 24, 2022 13:16
página inicial do aplicativo qui:casa
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);