- Samsung Galaxy A56 - megbízható középszerűség
- Élő adás Utazómajommal és Kerek Istvánnal az AI kapcsán
- Motorola Edge 50 Ultra - szépen kifaragták
- India felől közelít egy 7550 mAh-s Redmi
- Google Pixel topik
- Samsung Galaxy Watch6 Classic - tekerd!
- Magisk
- Minden készen áll a Galaxy Unpackedre
- Samsung Galaxy S23 Ultra - non plus ultra
- Nem őserejétől lesz hangos az Exynos 2500
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Heno1974
csendes tag
Sziasztok!
SAP-ba szeretnék lekérdezést vba-val.
De mindig feladja az ablakot, hogy melyikbe szeretnék bejelentkezni. s nem tudom hol adjam meg neki.
sapConnection.Client = "200"
sapConnection.User = ""
apConnection.Password = ""
sapConnection.Language = "hu" -
Heno1974
csendes tag
válasz
azopi74 #26390 üzenetére
sap gui ba belépve elérem sap-ban
akkor el kellene érnem vba-ban is szerintem.
csak nem tom a bejelentkkezést megirni
adatbázis lekérdezésnél nem tom a szerver cimét.
ezt a neten böngésztem de nem igazán értem a :
Set oConnection = SapGuiApp.OpenConnection("110 PRD-P01 ECC", True)Dim SapGuiApp As Object
Dim oConnection As Object
Dim session As Object
Dim SAPCon As Object, SAPSesi As Object
Dim SAPGUIAuto As Object, SAPApp As Object
Dim sapConnection As ObjectIf SapGuiApp Is Nothing Then
Set SapGuiApp = CreateObject("Sapgui.ScriptingCtrl.1")
End If
If oConnection Is Nothing Then
Set oConnection = SapGuiApp.OpenConnection("110 PRD-P01 ECC", True)
End If
If SAPSesi Is Nothing Then
Set SAPSesi = oConnection.Children(0)
End IfsapConnection.Client = "720"
sapConnection.User = ""
apConnection.Password = ""
sapConnection.Language = "hu"If nsapConnection.Logon(1, True) = True Then
MsgBox "Nincs kapcsolat az SAP-val!" -
Heno1974
csendes tag
sziasztok!
lekérdezést szeretnék csinálni sap-ból excelbe.
tudna valaki segiteni benne??
eddig jutottam, de nem enged be :Sub start()
Dim functionCtrl As Object
Dim sapConnection As Object
Dim theFunc As Object
Dim the_name As StringSet functionCtrl = CreateObject("SAP.Functions")
Set sapConnection = functionCtrl.Connection
sapConnection.Client = "002"
sapConnection.user = ""
sapConnection.Password = ""
sapConnection.Language = "HU"If sapConnection.logon(0, False) <> True Then
MsgBox "Nincs kapcsolat SAP-val!"
Exit Sub -
Heno1974
csendes tag
mailcím ahova küldjem??
a V1F es a makró -
Heno1974
csendes tag
syasztok.tudna nekem segítteni valaki??
sub szürés ()For k = 1 To 2000
Let x = ActiveCellActiveCell.Offset(1, 0).Range("A1").Select
Let y = ActiveCell
If y = "" Then
GoTo TestforBlank
End If
If x = y Then
Selection.EntireRow.Delete
ActiveCell.Offset(-1, 0).Range("A1").SelectEnd If
Next k
TestforBlank:
End suba K val áll i hibával,
szürni szeretnék 2003 excelbe, hogy az ismétlődéseket távolítsa el .
azt is meg kéne adni, hogy ha nincs adat akkor fejezze be a szürést.
valahogy igy kellene asszem:
For k <> "null"
ha jól tudom.
számokat kéne szürnöm, de K nál kiáll hibával
Új hozzászólás Aktív témák
Hirdetés
- Samsung Galaxy A56 - megbízható középszerűség
- Kerékpársportok
- PlayStation 5
- Motoros topic
- Ford topik
- Kecskemét és környéke adok-veszek-beszélgetek
- Hitelkártyák használata, hitelkártya visszatérítés
- Élő adás Utazómajommal és Kerek Istvánnal az AI kapcsán
- Kazy Computers - Fehérvár - Megbízható?
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Gyermek PC játékok
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Realme C30 32GB, Kártyafüggetlen 1Év Garanciával
- ALIENWARE Area-51 R6 Threadripper Edition 1920X
- DDR5 16GB 8GB 32GB 4800MHz 5600MHz RAM Több db
- AKCIÓ! Apple MacBook Pro 16 M4 Pro - M4 Pro 24GB 512GB SSD garanciával hibátlan működéssel
- AKCIÓ! Gigabyte H610M i5 12400F 32GB DDR4 512GB SSD Intel ARC A770 16GB Rampage SHIVA 650W
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged