Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
yani veriler bana ERP programından direk geliyor. çıktı alacağım sayfada sadece
sicil no - adı soyadı - iban no alanı var. ERP programından bu veriyi direk excele yapıştırıp çıktıyı alıyorum. formül işime yaramıyor yani. hücre üzerinden ilerlemem lazım isteğe uyarlanmış gibi
merhaba arkadaşlar 26 haneli aşağıda örnekteki iban numarasını aralarında 4 boşluk en son 2 boşluk şekilde örnekteki gibi excelde isteğe bağlı hücre olarak birtürlü ayarlayamadım. bu konuda desteğinizi rica ederim.
iban:
TR540020300002145346000001
olması istediğim format:
TR54 0020 3000...
...If previousValue <> Range("B6").Value Then
Application.EnableEvents = False
If Len(Range("B6").Value) > 0 Then
Range("B6").Value = IBAN(Range("B6").Value)
End If
Application.EnableEvents = True
End If
End If
End Sub
...Target As Range)
If Not Intersect(Target, Range("B6")) Is Nothing Then
Application.EnableEvents = False ' Döngüyü önlemek için
If Len(Target.Value) > 0 Then
Target.Value = IBAN(Target.Value)
End If
Application.EnableEvents = True
End If
End Sub
Fonksiyonu başka yerlerde de kullandığım için değişiklik yapamam.
İkinci verdiğiniz kod hücre çıkışlı olarak istedim
ikinci kodda hata aldım B6 hücresinde iban yazdıktan sonra enter dediğinde formatı düğzeltecek
...Intersect(Target, Me.Range("B6")) Is Nothing Then
On Error GoTo ExitHandler
Application.EnableEvents = False
Dim IbanRaw As String
IbanRaw = Replace(Target.Value, " ", "") ' Boşlukları temizle
If Len(IbanRaw) = 26 And Left(IbanRaw, 2) = "TR" Then...
Şöyle bir fonksiyonum var.
Function IBAN(IbanNo As String)
IBAN = "TR" & Format(Right(IbanNo, 24), "## #### #### #### #### #### ##")
End Function
B6 Hücresine ibanı yazdıktan sonra, yazılan ibanı formata göre değiştirsin.
Teşekkürler şimdiden
Syn Ömerbey bu fonksiyonu aşağıda belirteceğim maddeler için ayrı ayrı kullanmak istersek sonuç verici bir fonksiyona dönüştürmek mümkün olur mu?
İban No : 26 haneli bir metin parçası. TR ile başlar. Geri kalan 24 hane sayı (Karakterler arasında boşluk olmadığını varsayarak).
Tarih ...
Çok basit bir tablo yaptım ama çözemiyorum bir sayfada toplam ürünleri satışların (adet ve Tutar) görebilcem iban satışlarını ve ertesi güne devrini yapabilcem bir tablo yapmak istedim .
Merhaba arkadaşlar,
Textbox1 de bir arama yaptırıyorum. Mesela "Iban" olarak veritabanında kayıtlı bir veriyi aratacağım.,,
Fakat sorun şu : Capslook açık ve "İban" olarak yazıyorum sonuç vermiyor... Türkçe karakterleride kapsayan bir sorgulama kodunu nasıl yazabilirim?
yani ben "Iban" da...
...göre ilgili hesaplara
atıyorum
sonrasında programa aktarım yapıyorsunuz olay bu kadar
valla sizin dediğiniz gibi açılamada vkn & tc & iban zorunlu olsa çok daha kolay olacak bizler için ancak bırakın bu bilgileri açıklamada ch mahsuben giden eft & gelen eft gibi açıklamalar varken...
...Target As Range)
If Not Intersect(Target, Columns("D")) Is Nothing Then
If Len(Target.Value) <> 28 Then
MsgBox "IBAN numarası 26 karakter uzunluğunda olmalıdır. Lütfen düzeltin.", vbExclamation
Hata Target
Exit Sub
ElseIf...
...ChatGPT VBA kodu
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Dim iban As String
Dim ibanLength As Integer
For Each cell In Target
If Not Intersect(cell, Me.Columns("D")) Is Nothing Then
' Hücredeki değeri al ve başındaki ve...
Personel isminde bir sayfam var
C sütununda Adı Soyadı
D sütununda T.C. Kimlik Numarası
E sütununda Çalışma Statüsü
F Sütununda Banka IBan Numarası mevcut.
Listview1' in
1. sütununa Adı Soyadını
2. Sütununa T.C. Kimlik Numarasını aldım.
Listview1' de arama
Listview1' de seçilen satırın
İkinci...
...&" tutarındaki toplam 1 adet transfer işleminin yapılmasını rica ederiz."
İŞLEM TARİHİ
BORÇLU HESAP
ALICI HESAP/IBAN
ALICI ADI
TUTAR
DÖVİZ
AÇIKLAMA
28.02.2024
50626854
TR070001200963400010261351
Zen Enerji AŞ.
1,00
TL
Ocak Dönemi Vergi Ödemesi
28.02.2024
50626854...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.