Merhaba,
Dener misiniz.
Aşağıdaki kodu düzenleyerek, PDF dosyasının ismini "Bilgi" sayfasındaki B8 hücresine yazılan plaka ve o günün tarihi ile oluşturabilirsiniz.
İşte düzenlenmiş kod:
Private Sub CommandButton1_Click()
Sayfa2.PrintOut
End Sub
Private Sub CommandButton2_Click()
Dim...
Merhaba arkadaşlar, aşağıda ki kodda Form_1 , 2 , 3 olarak kayıt yapıyor. Her seferinde bu ismi plaka olarak değiştirmek zorunda kalıyorum. Komut ekranının olduğu "Bilgi" sayfasında "B8" hücresinde araç plakaları giriliyor. Ben bu formun "B8" hücresine yazılan plaka ve o günün tarihi olarak...
...Kusura bakmayınız dosyayı çalıştıramadım---Sayfalardan veri getirmeyi bir combo butona bağlayabilirmisiniz.butona basıldığında --B--Sutunundaki plaka verilerinin karşılığı sayfalarda var ise D Sutuna tarih-E Sutununa seri no F Stununa ise ceza tutarını getirsin. daha sonra da seri no nun...
...üzrer,nde yeni modul acarak yapıstırın
Sub CezaVerileriniGetir()
Dim sorguSayfası As Worksheet
Dim cezaSayfası As Worksheet
Dim plaka As String
Dim lastRow As Long
Dim i As Long
Dim cezaRow As Range
Dim cezaTarihi As Variant
Dim cezaSeriNo As Variant
Dim...
...kolaylıklar ve başarılar dilerim.
Yapmak istediğim Ekli Tabloda örnek açıklama olarak belirttiğim Sorgu Sayfasındaki B sutunundaki Plaka verisine göre diğer tüm sayfalardan ceza tarihi -ceza seri no ve ceza tutar verilerinin D-E-F Sutunlarına nasıl getirebilirim. Daha sonra da buraya...
...Set m = reg.Execute(hcr.Value)
If m.Count > 0 Then ExtractDate = m(0)
End Function
Kullanım; =ExtractDate(A1)
PLAKA için;
Function ExtractPlaka(hcr As Range) As String
Dim reg As Object, m As Object
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern =...
...Geri kalan 24 hane sayı (Karakterler arasında boşluk olmadığını varsayarak).
Tarih : GG.AA.YYYY formatında metin içinde yer alan metin parçası
Plaka : 34 AA 3434 formatıyla ya da 34AA3434 formatıyla metin içinde yer alan parça.
Yazdığınız fonksiyonu bu 3 konu için uyarlamak mümkün müdür?
İyi akşamlar;
Ekli dosyada TextBox1 e araç bilgilerinden herhangi birini(Plaka,TC No,Cinsi,Şoförün adı, Ünvanı) girdiğim zaman bu bilgiler Listbox1' e gelecek. Listbox1'e gelen bilgilerden ilgili satırı seçtiğimde o araça ait bilgiler G5:G10 hücresine gelebilir mi ? . Yardımcı olursanız...
...araç var bunların vize sigorta kasko gibi yapılması gerekiyor ve her seferinde ben unutuyorum. ve malum patrondan fırça yiyorum siz üstadlarımdan Plaka,tarih,vize sigorta kasko gibi bana 1 hafta önceden mail atarak anımsatacak bir excell tablosu lazım ilgilenen arkadaşlara şimdiden tşk.ederim
Sorunuz anlaşılmıyor.
Excel dosyanızda Örneği detaylandırın. E deki veri ne olacak? C de plaka no 1 yazılı bir sürü satır var.
Sağ taraftaki hangi veriyi nerede görmek istiyorsunuz veya E sütunundaki veriyi tam olarak nereden alacağız.
Plaka no ya örnek olarak 34ABC01 yazın.
Selamlar,
Düşey ara formülüyle 1 satırda birden fazla plaka numarası içinde arama yapıp yanına kargo kodunu getiremiyorum. Yok olarak dönüyor. Yardımcı olabilir misiniz bunu nasıl yapabilirim?
Kargo İçeriği
Gönderi Kodu
20AVY80 34CSR903 34BRC176
90848321
34GV7345 06BVJ219
34LK5606...
...Rakam kontrolünü yapmak için IsNumeric fonksiyonunu kullanacağız.
' soldan birinci karakteri ve sağdan birinci karakteri sayı olanları plaka gör ve boş geç
For X = 2 To SONSAT
Dim firstChar As String
Dim lastChar As String
firstChar = Left(Trim(s1.Cells(X, "N")), 1)...
...edecek bir diziyi nasıl tanımlayabilirim.
Amacım şu. İlgili hücre değerinin soldan ilk karakteri ve sağdan ilk karakteri sayı olan satırları Plaka olarak gör ve boş geç. Koda bunu yaptırmam gerekli.
'soldan birinci karakteri ve sağdan birinci karakteri sayı olanları plaka gör ve boş geç...
...de hoca aşırı elzem değil sadece öğrenmek istediğim için soruyorum. Yazdığınız koda ekle yaparak, mesela, belli bir şahıs, (aslında hücrelerde plaka yazıyor) diyelim "aaa", "aaa"'yı A1 hücresine götür, oradakiyle (orada hangi plaka var bilmiyoruz) A1'dekiyle yer değiştir diyebilir miyiz?
İsim...
Merhabalar. Ad Soyad, Plaka ve Telefon numarası listesi tutuyorum.Kaynak sayfadaki yasaklı verileri, çalışma sayfama girdiğimde veri doğrulama ile bir uyarı mesajı almak istiyorum.Fakat verinin girilip girilmeyeceği kullanıcıya kalacak.Bu konuda yardımcı olabilecek arkadaşlar varmı?
...BOY
PROFİL
1 mm
3,00 mm
2688 mm
PROFİL - PL-1
210 mm
5,00 mm
115 mm
PROFİL
1 mm
3,00 mm
1428 mm
TABAN PLAKASI - PL-1
210 mm
5,00 mm
115 mm
PROFİL
1 mm
2,00 mm
394 mm
KÖŞEBENT
120 mm
3,00 mm
150 mm
KÖŞEBENT
120 mm
3,00...
Kodları aşağıdakilerle değiştirin.
Private Sub btnTahmin_Click()
Dim Bak As Long
Dim Plaka As Range
Dim Ortalama() As Double
Dim IlkAdres As String
Dim Tarih As Date
Dim Say As Integer
ReDim Ortalama(0)
For Bak = 2 To Cells(Rows.Count, "I").End(xlUp).Row...
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.