Merhaba,
Textbox1 karakter sayısı 13 olarak sınırlı. TextBox1_Change() altına aşağıdaki kodları yazdığımda girilen ilk karakterden sonra sorgulama yapıyor ve hata mesajı veriyor.
Yapmak istediğim karakter sayısı 13 olduğunda sayfadan sorgulasın, yoksa hata mesajı versin. Bu şekilde bir düzenleme...
Merhaba,
Ondalık format ile ilgili denediğim satırları çıkarttım, karışıklık yaratmaması için. Yapmak istediğim Textbox2 ile Conbobox4 ü çarpıp, ondalık basamakları doğru şekilde textbox4 e yazmak.
İlginiz ve ayırdığınız zaman için teşekkür ederim.
Private Sub ComboBox1_Click()
' Seçilen ürün...
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sayfa2")
Dim rowNumber As Long
Dim colNumber As Long
Dim targetCell As Range
Dim searchName As String
Dim searchMonth As String
Dim addValue As Double...
Merhaba,
Örnek Dosya Linki
Örnek dosyada verinin 2. satırdan başladığını ve sıralı tarih olduğu varsayılmıştır.
İlk tarihi bulamazsa 2. satır, ikinci tarihi bulamazsa son satır dikkate alınarak kodlar hazırlanmıştır.
Siz kendinize göre uyarlayınız.
Not: TextBox larla uğraşmamak için Ben kodda...
Saygı değer hocalarım merhaba;
UserFormda;
20 adet TextBox var (TextBox1, TextBox2, TextBox3........)
20 adet Nesne tanımladım (A1, A2, A3,......) nesnelerin her biri farklı sayfalardaki farklı hücrelerin değeri.
yapmak istediğim, for döngüsü ile bu nesneleri textboxlara nasıl tanımlarım...
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Personel")
Dim tcKimlikNo As String
tcKimlikNo = Item.SubItems(1) ' Listview1'in ikinci sütunundaki T.C. Kimlik Numarası
Dim arananSatir As Range...
Merhaba arkadaşlar...
Excelde 9 sutundan oluşan bir tablom var bu tablomu userform üzerine 1 adet açılır combobox, 1 adet commandbuton ve 8 adet de textbox yaparak aradığımı daha kolay bulayım dedim ve aşağıdaki kodu yazdım. lakin combobox tan isim seçiyorum ve command butona basıyorum fakat...
Son gönderdiğiniz kodda da,
targetValue = ListBox1.Value satırında aynı hatayı verdi.
Olmazsa sadece bu sayfayı çalışma kitabına dahil edeceğim tekrar.
Çalışma kitabının içinde iken hata vermiyordu.
Bu kodlar ÜP sayfasıından veri alıyor. Bellek hatası olsa diğer sayfadaki işlemlerde de...
Anladım hata değil sadece bellek hatası veriyor dimi,
Dim wb As Workbook
Dim wsUP As Worksheet
Dim sut As Long
Dim al As Integer
Dim targetValue As Variant
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "ücretli_öğretmenler.xlsx")
If Not wb Is Nothing Then
Set wsUP = wb.Sheets("ÜP")...
Sub AramaYap()
Dim ws As Worksheet
Dim aramaTerimi1 As String
Dim aramaTerimi2 As String
Dim aramaTerimi3 As String
Dim bulunanSatir As Range
' Çalışma sayfasını belirle (örneğin, Sayfa1)
Set ws = ThisWorkbook.Sheets("Sayfa1")
' TextBox'ları kullanıcıdan alınan...
Merhaba,
Öncelikle herkese iyi çalışmalar dilerim. Amatör olarak oluşturmuş olduğum bir listbox içerisinde bir sütuna yönelik aranan bir değeri dosya içerisinde bularak bir buton ile listbox üzerinde siliyorum. Ancak aşağıda oluşturmuş olduğum kodlar çokta kullanışlı olmadı.
Asıl yapmak...
Necdet bey. Çok teşekkür ederim fakat sanırım ben durumu yanlış anlattım. Yapmak istediğim şey şu. 5 tane combobox var diyelim 4 combobox birbiri ile bağlantılı çalışıyor. Örneğin Combobox1'de Aydın seçildi Combobox2'de Aydın'ın ilçeleri listeleniyor. Combobox3 ve 4'te aynı mantıkla çalışıyor...
Merhaba,
D2= 16.01.2023
E2 = Kış
Textboxta 16.01.2023 tarihi geldiğinde diğer textboxda kış gelsin istiyorum fakat tarih formatında hata alıyorum.
Sayılarda çalıştırırken tarih formatında hata alıyorum maalesef kullandığım kod aşağıdaki gibidir.
With Sheets("PANEL")
sat =...
Merhaba sayın dEdE. aşağıdaki kodda A:C (A-B ve C) sütunlarını ÇÖB sayfasına kopyalıyor. Sağolun siz göndermiştiniz bu kodu. A-B-E sütunlarını nasıl kopyalayabilirim. ":C" yi ":E" yaptım ama yine eskisi gibi sonuç verdi.
sh2.Range("A" & Sat2 & ":C" & Sat2 + AySay).Copy sh1.Range("F5")...
Merhaba,
Örnek dosyanızda aşağıdaki kodu dener misiniz?
Private Sub CommandButton1_Click()
Set sh1 = Sheets("ÇÖB")
Set sh2 = Sheets("ks")
tx1 = CDate(TextBox1.Text) 'TextBox'un içeriği doğal olarak textdir. Bu satır TextBox'un içeriğini Tarihe dönüştürür.
AySay = DateDiff("m", tx1, tx2) 'İki...
Hocam çok uğraştırdım farkındayım ama bir türlü çözemiyorum.
ayrı bir data sayfası yok trafik - dask ve kasko adında 3 sheet var. verileri buradan çektiriyorum.
sıkıntım şu
textbox change olayında 3 adet textbox a veriyi getirmek. bu işlemi trafik multipage de yapıyorum. ama daskta olmuyor...
hocam şöyle anlatayım. multipage kullanarak 3 adet page oluşturdum, trafik - dask - kasko, sheetlerde aynı bu şekilde.
listboxtan çift tıklama ile plakayı getiriyorum. sonra textbox change den yaralanarak diğer texboxlara bilgi getirtiyorum.
trafik page de iken hiçbir sorun yok aşağıda kodlarını...
Merhabalar hayırlı akşamlar, aşağıdaki kod ile listboxta arama yaptırıyorum. Aradığım veri C sütununda. Kod arama yapıyor ancak C sütunundan sonraki verileri getiriyor A ve B Sütunundaki verileri göstermiyor. A ve B sütunundaki verileri de getirmek için ne yapabilirim
Private Sub...
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.