Kendi Mobil Uygulamanı Kendin Yap ;)

Herkese Merhaba,

Bu paylaşımımda birçok kişinin bilmediği ancak birçok kişinin de işine yaracak bir uygulamadan bahsedeceğim.Ben bunu faydalı olabileceğini düşünüp araştırıp öğrendim, sizleri bilgilendirmek istedim. İnternette çok fazla görüntülü eğitim kaynağı yok, Youtube da  birkaç eğitim videosundan yararlanabildim.

Öncelikle uygulamadan kısaca bahsedeyim;

Bu uygulama Microsoft’un bize sunduğu Powerapps yazılımının bir özelliği, Powerapps de bulut tabanlı çalışan mobil uygulamalar tasarlayabiliyor sunuz.Bir düşünün mobil çalışan sayım sistemi, mobil envanter sistemi, mobil raporlama sistemi, mobil öneri sistemi vb. Bu uygulamalara şirket mail adresiniz ve şirket bilgisayar ekran şifreniz ile giriş yapabilirsiniz.Yaptığınız uygulamada şirket içinde istediğiniz kişilere okuma/yazma yetkisi verebiliyor sunuz.Android / IOS ve Windows işletim sistemi olan tüm mobil cihazlarda çalışmakta.

Çalışma mantığı özetle şekilde;

Öncelikte Excel veri tabanını hazırlıyoruz (Tablo formatında), One drive, Google drive ne kullanıyorsanız (One drive öneririm) dökümanı ilgili yere yüklüyoruz, Envanter veya ürettiğiniz parçalara ait resimleride küçük boyutlarda oluşturup klasör içinde aynı şekilde One drive a yüklüyorsunuz.Gerisi programı tasarlama aşaması ve verileri birbirine linklemek, Biraz visual basic, makro bilginiz var ise üstesinden gelebiliyorsunuz.Programı oluşturduğunuzda parça kodu yazarak aratıp, veya size kalmış müşteri bazlı sorgulatıp görüntüleyebilir, parçaya ait tüm detayları resimleriyle birlikte görebilirsiniz.

Aynı zamanda verilerde düzeltme yapabilir, silip yeni kayıt oluşturabilirsiniz.(Bu veriler anlık olarak One drive daki excelinizi güncellemektedir.)

NOT:

Takdir edersiniz ki böyle bir uygulama ücretsiz değil , 30 günlük deneme sürümü sonrası tercih edeceğiniz paketlere göre ücretleri değişiklik gösterebiliyor.Sitesinden detaylı da inceleyebilirsiniz.

Eğer ücretsiz bir mobil uygulama yapmak istiyorsanız daha kısıtlı modüllerin olduğu Mobiroller uygulamasını kullanabilirsiniz.

-PowerApps: Şirket içi kullanılabilir.

-Mobiroller: Program oluşturulup Google play’ de kullanıma sunulabilir.(IOS için ücret ödenmeli)

Umarım sizler için faydalı olur,

Mutlu günler, iyi çalışmalar

Devamı...

Doğru Kritere Göre İstenen Sütunu Göster/Gizle Makrosu

Merhaba, Bu seferki makromuz , tanımlı bir hücrede istediğimiz bir kelime yazıldığında veya filtreden seçildiğinde görünmesini istediğimiz veya istemediğimiz sütunları gösterip gizleyebilmemizi sağlıyor.Sütunları istediğiniz kadar çoğaltabilirsiniz.Yapmanı gereken sadece aşağıdaki makroyu ilgili sayfanın olduğu kod bölümüne kopyalayıp hücre ve kriter bilgisini güncellemenizdir.Umarım faydalı olur. iyi çalışmalar 😊

Private Sub Worksheet_Change(ByVal Target As Range)   'hücredeki veri değiştiğinde makro çalışsın istiyorsak bu komutla makroya başlamalıyız ve ilgili sayfanın olduğu sheet e koymalıyız If Range("B5") = "Risk" Then  'Risk isimli seçeneği seçerseniz Range("G:G,W:W").Select  'Bu sütunları görünür yapacak     Selection.EntireColumn.Hidden = False Range("H:H,V:V").Select 'Bu sütunları gizleyecek     Selection.EntireColumn.Hidden = True     Range("B5").Select End If If Range("B5") = "Fırsat" Then   'Fırsat isimli seçeneği seçerseniz      Range("H:H,V:V").Select             'Bu sütunları görünür yapacak     Selection.EntireColumn.Hidden = False      Range("G:G,W:W").Select     'Bu sütunları gizleyecek     Selection.EntireColumn.Hidden = True Range("B5").Select 'sütunları aralara virgül koyarak arttırabilirsiniz. End If End Sub

Devamı...

Parça Listesinin Yanına Toplu Resim Getirmek.

Merhaba,

Bu makronun detayını anlatmak gerekirse, elinizde yüzlerce parça kodu var, ve bu kodların herbirinin tek tek resmini yanındaki hücreye getirmeye çalışıyorsunuz.İşte bu makro tam sizin aradığınız şey. Kodların olduğu ilgili sütunu seçin, resimleri hangi sütuna gelecek belirtin kodların birine F2 enter yapın.(Çünkü makro hücre verisi değiştikçe çalışıyor.) Tüm kodların karşısına resimleri getirecektir.Kod fazlalığına göre 1 dk'ya yakın bekleyebilirsiniz.

Umarım işinize yaraycaktır.

iyi günlerde kullanın.

Önemli;
Makromuzu ilgili sayfanın olduğu kod bölümüne koymanız gerekmektedir.

Public Function DosyaVarmi(dosyayolu As String) As Boolean On Error GoTo Çıkış If Not Dir(dosyayolu, vbDirectory) = vbNullString Then DosyaVarmi = True Çıkış: On Error GoTo 0 End Function 'worksheette bir değişiklik oldugunda bu kısım çalışıyor Private Sub Worksheet_Change(ByVal Target As Range) 'değişiklik b sutunundamı olmuş diye kontrol et, değilse direk olarak fonksiyondan çık If Intersect(Target, [E:E]) Is Nothing Then Exit Sub 'herhangi bir hata oluşursa Çıkış labelına git On Error GoTo Çıkış: ' ilk olarak yüklü olan Resimleri silelim ActiveSheet.DrawingObjects.Delete Dim ResimDosyaYolu As String Dim Resim As Object 'E deki 3 ile 255 arasındaki satırları kontrol edip resim ataması yapıyoruz, siz burayı isteğinize göre artırabilirsiniz For i = 3 To 255 'aktif sayfanın path bilgisini alıp, seçilen ürün idyi sonuna ekliyoruz ve dosyayı alıyoruz ResimDosyaYolu = "\\file_server\FOTO_METOD\Parca\" & "\" & Range("E" & i) & ".jpg" 'dosya yok ise hataya düşmemek için aşağıdaki kontrolü yapıyoruz. If DosyaVarmi(ResimDosyaYolu) Then ResimDosyaYolu = "\\file_server\FOTO_METOD\Parca\" & "\" & Range("E" & i) & ".jpg" Else ResimDosyaYolu = "\\file_server\FOTO_METOD\Parca\" & "\hata.jpg" End If 'resmi oluşturuyoruz. Set Resim = ActiveSheet.Pictures.Insert(ResimDosyaYolu) 'Resmi boyutlandırıyoruz With Range("f" & i) Resim.Top = .Top Resim.Left = .Left Resim.Height = 40 'Buradaki 2 ölçüyü istediğiniz ebatlarda ayarlayabilirsiniz. Resim.Width = 40 End With Next i Çıkış: End Sub

Devamı...

Userfom üzerinden klasöre resim yükleme...

Merhaba,

Diyelim ki bir userformunuz var ve parça bilgisine göre resim gösteriyor ve bu resmi bir klasörden çekiyor.Her defasında ilgili klasörü açıp resim kopyalamak yerine userform üzerine resim ekle adında bir command buton ekleyip içine aşağıdaki kodları koyduğunuzda artık resmi userform üzerinden yükleyebilir hale gelebilirsiniz.

Sadece kodların en altında yer alan klasör adresini güncellemeniz yeterlidir.

Sub Kopyalama() Dim fso As Object Set fso = VBA.CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFilePicker) .Title = "Dosya Seçiniz" If .Show = True Then dosya = .SelectedItems(1) End If End With fso.CopyFile dosya, ThisWorkbook.Path & "\Resim Dosyaları\" End Sub

Devamı...

Userform Minimize / Maximize Yapmak...

Merhaba,

Aşağıdaki kodlarımızı ilgili Userform un kod bölümüne yapıştırıyoruz.
Formumuz aşağıdaki görünüme kavuşuyor.
Hepsi bu kadar :)

Option Explicit Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal CX As Long, ByVal CY As Long, ByVal wFlags As Long) As Long Private Declare Function GetActiveWindow Lib "user32.dll" () As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long Private Const RGN_DIFF = 4 Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 Private Const GWL_STYLE As Long = -16 Private Const GWL_EXSTYLE As Long = -20 Private Const WS_CAPTION As Long = &HC00000 Private Const WS_MINIMIZEBOX As Long = &H20000 Private Const WS_MAXIMIZEBOX As Long = &H10000 Private Const WS_POPUP As Long = &H80000000 Private Const WS_VISIBLE As Long = &H10000000 Private Const WS_EX_DLGMODALFRAME As Long = &H1 Private Const WS_EX_APPWINDOW As Long = &H40000 Private Const SW_SHOW As Long = 5 Dim X1 As Long, Y1 As Long, CX As Double, CY As Double Dim MyCtrl As Control, hWndForm As Long, X As Long Private Sub CommandButton1_Click() Application.Visible = True Unload Me End Sub Private Sub UserForm_Activate() Dim lngCurrentStyle As Long, lngNewStyle As Long lngCurrentStyle = GetWindowLong(hWndForm, GWL_STYLE) lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX lngNewStyle = lngNewStyle And Not WS_VISIBLE And Not WS_POPUP SetWindowLong hWndForm, GWL_STYLE, lngNewStyle lngCurrentStyle = GetWindowLong(hWndForm, GWL_EXSTYLE) lngNewStyle = lngCurrentStyle Or WS_EX_APPWINDOW SetWindowLong hWndForm, GWL_EXSTYLE, lngNewStyle ShowWindow hWndForm, SW_SHOW End Sub Private Sub UserForm_Initialize() X1 = Width Y1 = Height X = 1 'ikon If Val(Application.Version) < 9 Then hWndForm = FindWindow("ThunderXFrame", Caption) 'XL97 Else hWndForm = FindWindow("ThunderDFrame", Caption) 'XL2000, XP, 2003? End If SetWindowLong hWndForm, -16, &H20000 Or &H10000 Or &H84C80080 End Sub Private Sub UserForm_Resize() CX = X1 / Width CY = Y1 / Height For Each MyCtrl In Me.Controls MyCtrl.Top = MyCtrl.Top / CY MyCtrl.Left = MyCtrl.Left / CX MyCtrl.Width = MyCtrl.Width / CX MyCtrl.Height = MyCtrl.Height / CY On Error Resume Next MyCtrl.Font.Size = MyCtrl.Font.Size / CX On Error GoTo 0 Next MyCtrl X1 = Width Y1 = Height End Sub Private Sub minimize_Click() ShowWindow hWndForm, 2 End Sub

Devamı...