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...
...Başka bir sayfada da A5 çıktı almak için başka bir sayfam var.
Gelen sayfasında
SIRA
NO
TARİH
PARÇA
LİSTESİ
FİRMA
ARAÇ MODEL
ARAÇ
PLAKA
BİTİŞ
TARİHİ
GELEN
ÜRÜN 1
GELEN
ÜRÜN 2
GELEN
ÜRÜN 3
YAPILAN İŞLEM
GİDENLER
NOTLAR
484
27.05.2024
AAA TEKNİK
AUDİ A6
34...
başka dosyada denedim hücre biçimlendirmelerine baktım bayi kodlarına baktım sıkıntı bulamadım ya da çok baktığım için gözümden kaçtı bilemiyorum. göz gözden akıl akıldan üstündür yardım ve cvp için çok teşekkür ediyorum
Merhaba,
Aranan değer ilgili tabloda bulunamadığında #YOK hatası alırsınız. Örneğin, illerin plaka kodlarını içeren bir tabloda Düşeyara ile tam eşleşme 85 plakasını arattığınızda bu hatayı alırsınız.
Muhtemelen müşteri kodu ilgili tablo aralığında yer almıyordur veya yazılırken farklı yazım söz...
Merhabalar elimde hem harf ve hemde rakamdan oluşan veri seti mevcut. Plaka ve şase numaraları gibi örnek vermek gerekirse mmxx55c678h23 gibi şase numaralarından oluşuyor. Hangi değişken tanımlaması yapılır bilmiyorum araştırdım ama bulamadım. Harf ve rakam içeren veriye en uygun olanı...
Tüm kayıtların (Plaka telefon vb.) olduğu veri listeniz varsa;
Düşeyara formülü ile istediğiniz yapılabilir.
Haa öyle bir liste yok. veri girdiğimiz listeye ekleme yaptıkça eklenmiş kayıtlardan arama yapıp verileri tamamlasın diyorsanız. O opey uğraştırır.
Merhaba
Aynı tablodan, veri aynı tabloya daha önce girildiyse örneğin plaka, yandaki telefon numarası, isim vs otomatik yazılsın istiyorum. Araç kayıt formu olarak tutmak istiyoruz bu formu
Merhaba
İlk sayfanızın kod bölümüne uygulayıp deneyiniz.
A2 hücresi ve altına plaka yazdıkça eşleşme varsa yandaki sütuna bilgiler otomatik gelecektir.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then...
...şu 1.sayfam adi ziyaretçi 2.sayfamda dataların yer aldığı 4 sutundan oluşan tablo var.Sırası ile data sayfasındaki sutun isimlerim 1.sutun plaka 2.sutun ad soyad 3.sutun tc 4. Sutun firma bunları ziyaretçi sayfama 1.sutuna plaka yazinca ad soyad ,tc ve firmalar sutunlara gelsin istiyorum...
...gibi kullanılabilir. 90 lı yıllarda basic'le programlar bu tarzda yapılıyordu.
Type kayitTipi
kayitNo As Integer
tarih As Date
plaka As String * 12
yakit As String * 15
cinsi As String * 10
mesafe As String * 10
End Type
Sub kayitlariEkle()
Dim fName$, i, son&...
...iki sayfa var. Sayfalardan biri formları çalıştırmak için kullandığım active x düğmelerini barındırıyor, diğer sayfada ise bir tablo var. Bir plaka numarası düşün, bunun karşılık geldiği aracın marka, model ve renk bilgileri tablosu gibi. Tabiki veri oldukça uzun.
İlk sayfadaki active x...
Merhaba
Benim yazdığım kod, (yakıt deposu= Petrol Ofisi veya yakıt deposu Petrol Ofisi olmayan ve Km > 0 olanların) Plaka ve Tarih bazında yakıt toplamını bulur.
Eğer istemiş olduğunuz farklı bir sonuç ise, istediklerinizi detaylı olarak yazarsanız kod o şekilde revize edilir.
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.