...bu 3 nü birden seçip commandbutona tıklayınca listbox2 ye 3 sütun halinde her iki sayfadan şu verileri getirecek
1 sütuna Hat adı 2 sütuna Plaka ve son olarak 3 sütıuna da araç durak çıkış saatini verecek ....Ama
run_time error '9' subscript out of range hatası alıyorum . Forumdan biraz...
Merhaba,
3 makro var. Aşağıdaki kod bloğunu modüle ekleyiniz.
PlakaBilgileriniAl makrosunu çalıştırmanız yeterlidir.
veya,
Private Sub CommandButton1_Click()
Call PlakaBilgileriniAl
End Sub
Sub PlakaBilgileriniAl()
'RBozkurt 29.04.2023
Dim satkoSayfa As Worksheet
Dim kmSayfa As...
...arkadaşlar ,
Arkadaşlar dünden beri çözemediğim bir sıkıntıyı sizlerden destek bekliyorum.Ekteki dosyamın satko sayfasından C sütunundaki plakaları scripting.dictionary nesnesine her plakadan sadece 1 tane olacak şekilde yükleyip (araclar değişkenine) daha sonrada her plaka için başlangiç ve...
Merhaba aşağıdaki tablomda araç plakasını tek bir araç olarak hesaplayım. Yüklemede kaç aracım var sevk edilen kaç aracım vs gibi tablo yapmak istiyorum Desteklerinizi rica ederim
yük
MÜŞTERİ ADI
PALET SAYISI
ARAÇ PLAKA
DORSE PLAKASI
ŞOFÖR ADI
TC NO
TELEFON
NAKLİYE ÜCRETİ
ZDURUM...
Merhabalar değerli hocalarım.
Elimde plakaların bulunduğu bir listem var. Örnekle anlatacak olursam;
A2'den A7'ye kadar 40ABC121 plakası var, A8'den A14'e kadar 40ABC122 var, A15'den A30'a kadar 40ABC123 plakası var.
Yapmak istediğim işlem, her plakadan 1 adet kalması için filtreleme yapmak...
Aşağıdaki formülle sonuca gidebilirsiniz.
DİZİ Formüldür. Eğer Türkçe sürüm kullanıyorsanız formülü çevirmeniz gerekir.
=IFERROR(INDEX(Tablo4[Plaka];MATCH(0;IF(Tablo4[Mülkiyet]=$A$1;COUNTIF(Liste!B$2:B2;Tablo4[Plaka]));0));"")
...bu şekilde daha güzel oldu, Ben bununla ile ilgili bir konu daha açmak istiyordum, şöyleki aynı belge ütünde yine TextBox1'e isim yazıldığında Sayfada arasın karşılığındaki, CepTelefonu (TextBox4'e) , Email (TextBox5'e) ,Araç Plaka(TextBox6'ya), Marka(TextBox7'e) otomotik olarak yazsın istiyorum.
...gerekiyor aşağıdaki kod'lara göre ListBox1 'e " Bakımda" yazan satırlar açılışta geliyor ancak Üst menü başlıkları boş geliyor Yani No, Plaka, Model,Yıl gibi o bölümleri boş getiriyor bunu nasıl düzeltebilirm kod'lar aşağıda;
Sub listbox1_doldur()
With ListBox1
.ColumnCount = 9
.ColumnWidths...
Tüm plakaların başındaki bir karakter silinecekse aşağıdaki kod işinizi görür.
Sub Test()
Dim Bak As Integer
Dim Rkm As Integer
Dim Plaka As String
For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
Plaka = Right(Cells(Bak, "A"), Len(Cells(Bak, "A")) - 1)
Plaka =...
MERHABA,
iŞLETME İÇERİSİNDE 15 ARAÇ VAR ,
50 TONLUK DEPOYA YAKITLŞAINIYOR VE BU DEPODAN ARAÇLARIN PLAKALARINA GÖRE KAYIT TUTULUYOR.
BEN BUNUN İÇİN EXCELDE
GİRİŞ
SIRA NO
TARİH
FATURA NO
FİRMA DI
ALINAN ÜRÜN
MİKTAR
1
12.12.2022
XXX
ZZZZ
ADBLUE
10 LT
2
12.12.2022...
Merhaba.
Bir modüle aşağıdaki kodu kopyalayıp çalıştırın.
Sub Test()
Dim Bak As Integer
Dim Rkm As Integer
Dim Plaka As String
For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Plaka = Cells(Bak, "A")
Plaka = Replace(Plaka, Left(Plaka, 2), Left(Plaka, 2) & " ")...
merhabalar arkadaşlar mevcut bir dosyam var bununla ilgili yapmamak istediğim şey (metal plaka kalınlıkları ve buna benzer farklı metariallerim oluyor) bunları farklı sekmelerde mevcut başlıklar altında kullanmış olduğum dosyamda dışa aktarım yaparak farklı excel'e aktarmasını istiyorum bununla...
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.