Merhabalar,
Üzerinde çalıştığım hasta kabul programı içerisinde düzeltemediğim bir konu var, şöyle ki;
1- Form içerisinde ListView kullanıyorum. ListView2 verileri "Sayfa (met)" den alınıyor, ("Sayfa (met) gizli olmasına rağmen sorun olmadan veriler listelenmekte)
2-ListView2 üzerinde ilgili...
arkadaslar merhaba, asagidaki kodlar ile, listbox1 icinde listelenen isimler var, hangi isme tiklarsam o ismi tabelle1 deki B sütünunda buluyor, ve textbox lara getiriyor ama lsitede ayni isme sahip 4 kisi olabiliyor o yüzden ilk bulunani texbox a getiriyor, buna ilave olarak sunu yapmak...
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...
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.