Jump to content

Ferjam

Members
  • Content Count

    7
  • Joined

  • Last visited

About Ferjam

  • Rank
    Newbie

Converted

  • Campos
    ;
  • Mi versión de Excel:
    0,5
  1. hola... prueba con: if range("h7") = "hangar" then rows(7).copy destination:=sheets("Arrastre_Hangar").range("a" & rows.count),end(xlup).offset(1, 0) end if si la celda h7 es hangar.. que copie toda la fila 7 y la lleve a la hoja.. "arrantre" y la ponga en la siguiente a la ultima escrita de la columna a
  2. Una solución... buscando he entrado un código que me da el hwnd de todas las aplicaciones abiertas... Option Explicit 'PtrSafe Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _ (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _ (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ (ByVal hWnd As Long, ByVal lpStri
  3. Buenos días, mi nombre es Fernando Gonzalez... por trabajo empecé en esto de las celdas... y cuando descubrí el VBA lo veo ya todo desde ese prisma, y claro eso te lleva a meterte en mas fregados... (siempre desde el EXCEL).... con ganas de aprender y de ayudar... gracias por la acogida.
  4. os pongo un poco de codigo... Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Sub run() note = FindWindow("notepad", vbNullString) ' sin problem me detecta la pantalla inter = FindWindow("IEFrame", vbNullString) ' sin problem me detecta la pantalla del explorer team = FindWindow("teams", vbNullString) ' no hay manera de que la vea, me da 0 (no se como poner el titulo de la pantalla que quiero) Range("a1") = note Range("b1") = "note" Range("a3") = inter Range("b3")
  5. Buenas, es una cosa fácil pero se me esta resistiendo, con Application.hWnd saco la de la ventana activa, el excel, y con FindWindow("notepad", vbNullString), la de notepad, pero cuando intento otras que tengo activas como por ejemplo el word no me da nada... alguien me puede indicar como indicar en el findwindow / ex el titulo de la ventana, gracias
  6. Buenos días, por necesidades quiero automatizar un proceso de alta en una aplicacion en java, los datos me los dan en EXCEL, y desearia que con una macro este realize el porceso de alta en la otra aplicación, pero mi primer STOP ha sido el activar la otro ventana (donde se encuentra la aplicacion de destino), he porbado con sendkey .. alt+tab (Application.SendKeys ("%{tab}") y no funciona, he leido cosas sobre APIs y shell pero no me aclaro, o comandos como HWND, FindWindow( ), GetDC( ) pero no encuentro ejemplos.... gracias de antemano
×
×
  • Create New...

Important Information

Privacy Policy