שיתוף | אימות נתונים באקסל לבדיקת תקינות מס' סניף מול מס' בנק
-
הורדתי קובץ עדכני מאתר בנק ישראל של כל מספרי סניפי הבנק בישראל.
יצרתי אימות נתונים מהיר על מנת לוודא שהמשתמש ממלא נכון את מספר הסניף.
(הנוסחה די פשוטה: COUNTIFS שבודק אם שני התנאים קיימים יותר מפעם אחת.)מעלה את הקובץ על מנת שעוד מישהו יוכל להנות מזה.
מצורף:
אימות נתונים למספר סניף.xlsx -
אני מניח שאתה לא רוצה לבלבל בין נתוני בנקים שאתה מקבל אז צריך לבדוק גם מספר חשבון.
אולי תוכל להוסיף עמודה למספר חשבון.
ולהוסיף לאקסל את הכללים של כל בנק ומספרי החשבון שלו, כלומר כמה ספרות יש למספר חשבון בכל בנק, איזה ספרות הם מתחילים וכו'.https://masav.co.il/media/2473/bdikat_hukiot_heshbon.pdf
זה נראה פרוייקט רציני...
-
@מטעמים אתה יכול גם לעשות קוד VBA שיבדוק עם API של בנק ישראל.
לדוג' הבקשה הבאה:
https://data.gov.il/api/action/datastore_search?resource_id=1c5bc716-8210-4ec7-85be-92e6271955c2&filters={"Bank_Code":"52","Branch_Code":"172"}
תבדוק האם קוד בנק 52 (פאג"י) וקוד סניף 172 נכונה. במידה וכן היא תחזיר את פרטי הסניף.
זה לא יעזור לך לבדוק נכונות של פרטי החשבון, רק מספר בנק וסניף. -
@Whenever כתב בשיתוף | אימות נתונים באקסל לבדיקת תקינות מס' סניף מול מס' בנק:
אני מניח שאתה לא רוצה לבלבל בין נתוני בנקים שאתה מקבל אז צריך לבדוק גם מספר חשבון.
אולי תוכל להוסיף עמודה למספר חשבון.
ולהוסיף לאקסל את הכללים של כל בנק ומספרי החשבון שלו, כלומר כמה ספרות יש למספר חשבון בכל בנק, איזה ספרות הם מתחילים וכו'.https://masav.co.il/media/2473/bdikat_hukiot_heshbon.pdf
זה נראה פרוייקט רציני...
@Whenever הלכת רחוק. זה כאן ממש ליד. פתחתי שרשור לפני 4 שעות.
-
הנה קוד לדוגמא:
Public Function אימות_סניף() Dim Request As MSXML2.ServerXMLHTTP60 Dim Json As Object Dim item As Variant Set Request = New ServerXMLHTTP60 With Request .Open "GET", "https://data.gov.il/api/action/datastore_search?resource_id=1c5bc716-8210-4ec7-85be-92e6271955c2&filters={""Bank_Code"":""52"",""Branch_Code"":""172""}", False .send Set Json = JsonConverter.ParseJson(.responseText) End With If Json("success") <> "true" Then MsgBox "התרחשה שגיאה, פרטי השגיאה: סוג - " & Json("error")("__type") & ", הודעה - " & Json("error")("message") ElseIf Json("result")("total") = 0 Then MsgBox "הבקשה לא החזירה תוצאות" Else For Each item In Json("result")("records") MsgBox item("Bank_Name") & " - " & item("Branch_Name") & " - " & item("Branch_Code") Next item End If End Function
הערה. אני משתמש בקוד JsonConverter בשביל לקרוא טוב את התשובה.
-
@מטעמים כתב בשיתוף | אימות נתונים באקסל לבדיקת תקינות מס' סניף מול מס' בנק:
@Whenever כתב בשיתוף | אימות נתונים באקסל לבדיקת תקינות מס' סניף מול מס' בנק:
אני מניח שאתה לא רוצה לבלבל בין נתוני בנקים שאתה מקבל אז צריך לבדוק גם מספר חשבון.
אולי תוכל להוסיף עמודה למספר חשבון.
ולהוסיף לאקסל את הכללים של כל בנק ומספרי החשבון שלו, כלומר כמה ספרות יש למספר חשבון בכל בנק, איזה ספרות הם מתחילים וכו'.https://masav.co.il/media/2473/bdikat_hukiot_heshbon.pdf
זה נראה פרוייקט רציני...
@Whenever הלכת רחוק. זה כאן ממש ליד. פתחתי שרשור לפני 4 שעות.
"Great minds think alike":)
-