En este video, podrás mantener tu balance de criptomonedas descentralizadas actualizado en tiempo real utilizando un servicio web y guardar registro histórico para ver la evolución de precios. Aprenderás a ejecutar una Macro VBA en Excel para garantizar que estés siempre al tanto de tus activos digitales en un solo lugar!
Lo que cubriremos:
🌐 WebService para Datos en Tiempo Real: Descubrirás cómo utilizar un servicio web para obtener datos en tiempo real sobre tus criptomonedas directamente en Excel.
🔄 Actualización Continua: Aprenderás a ejecutar una Macro VBA para actualizar automáticamente tu hoja de cálculo, garantizando que tus balances estén siempre al día.
📈 Registro Histórico: Exploraremos cómo guardar un registro histórico de tus saldos para realizar un seguimiento de tu progreso a lo largo del tiempo.
Servicio Web:
cryptoprices.cc/
Código de Referencia:
Linea en celda:
=VALOR.NUMERO(SERVICIOWEB(endpoint&"/"&C5))
En video:
Sub Botón1_Haga_clic_en()
Replace_equal
ActiveWorkbook.RefreshAll
CopyActiveRow
End Sub
Sub Replace_equal()
Range("E1:E99").Replace What:="=", Replacement:="="
End Sub
Sub CopyActiveRow()
Dim m As Long
m = 0
Sheets("Hoja1").Range("B4:F9").Copy
'm = Worksheets("Archive").Range("E" & Worksheets("Archive").Rows.Count).End(x1Up).Row
m = Worksheets("Archive").Range("E" & Worksheets("Archive").Rows.Count).End(xlUp).Row
m = m + 1
With Sheets("Archive").Range("A" & m)
.PasteSpecial (xlPasteAll)
.PasteSpecial (xlPasteValues)
End With
End Sub
Código Original:
Sub Botón2_Haga_clic_en()
Replace_equal
ActiveWorkbook.RefreshAll
CopyActiveRow
End Sub
Sub Replace_equal()
Range("E1:E99").Replace What:="=", Replacement:="="
End Sub
Sub CopyActiveRow()
Dim m As Long
m = 0
Range("B6:F11").Copy
m = Worksheets("Archive").Range("E" & Worksheets("Archive").Rows.Count).End(xlUp).Row
m = m + 1
With Sheets("Archive").Range("A" & m)
.PasteSpecial (xlPasteAll)
.PasteSpecial (xlPasteValues)
End With
End Sub
Gracias a ellos (Snippet usados):
Import Crypto Price In Excel
• Import Crypto Price In...
Copy Selected Data and Paste to the Last Row of Another Sheet
www.mrexcel.com/board/threads...
COUNT & Copy to Last Row, Paste to another sheet to Last Row (FIRST EMPTY ROW, adding, not replacing
techcommunity.microsoft.com/t...
Si encuentras útil este método para mantener tu balance de diferentes wallets actualizado, asegúrate de darle like, suscribirte para más tutoriales y compartir con tus amigos en el mundo de las criptomonedas.
¡Prepárate para tener un control total sobre tus activos digitales! Nos vemos en el próximo video.
Nuestros Afiliados, Referidos y Patrocinadores: decomunal.com/blog/afiliados-...
Gracias por ver!
#BalanceCrypto #WebService #RegistroHistórico #ExcelVBA #Criptomonedas
Instagram: Tony_90a
Mail: contacto@decomunal.com
Telegram: t.me/decomunal
Invítame un café: ko-fi.com/decomunal
www.paypal.com/paypalme/decomunal
Cámaras: Pocket 6K Pro - POCO F3 - DJI Pocket 2