İşleri öğrenince iş başa düştü ve cevabını da kendim buldum. Buraya bırakalım belki faydalanan olabilir.
İlk olarak bul butonu yardımıyla veritabanından ilgili kaydı bulup userform'a çağıracağımız kod.
Private Sub bul_Click()
On Error GoTo Bitir
aranan = InputBox("Bulmak istediğiniz...
Cevap veren arkadaşlara şimdiden çok teşekkür ederim.
Userform'uma veritabanımdan veri çekiyorum.
OptionButton'lara Veritabanındaki "Erkek" "Kadın" cinsiyetine göre seçimi nasıl çekeceğim. Aşağıdaki koddaki gibi bir işlem yaptım ama doğru sonucu alamıyorum.
opterkek.value ile başlayan satırda...
Üstad sizi yine rahatsız edeceğim ama bu sefer son olacağını düşünüyorum :censored:
Sizden geçen istediğim hücre içerisindeki açılır kutudan "Ayrıldı" olarak seçildiğinde istediğim kısmı personel ekleme&güncelleme&silme userform'una aktarmak istiyorum ve orada da bir buton yardımıyla bunu...
Merhabalar, kolay gelsin,
Aşağıdaki kodu textbox'ı renklendirmek için kullandım. Ama, herhangi bir şekilde renklendirme olmadı. Programı da biraz yavaşlattı.
Programı anlatmam gerekirse, userform üzerinde 100 tane textbox var. listview'den sürükle bırak ile textbox'a bırakıyorum bilgiyi. Bu...
Arkadaşlar bir userform tasarladım.
bul = TextBox19.Value
satir = ss5.Range("A:A").Find(bul).Row
Bu kod ile textbox 19 da yazan verinin satırını buluyorum. Fakat hücrede ki tarih formatı ile uyuşmuyor sanırsam. İşlem yapmıyor.
'Not: textbox'a 9/6/2019 yazarsam işlem yapıyor. ama ben 6/09/2019...
serForm1'de gösterilen bilgileri UserForm'2'ye çekmek.
User Form1'de Listbox'da seçi olan kayda tıklayınca textboxlarda kayıtları görebiliyorum.
Yalnız ben tıkladığımızda görünen kaydı bir buton ile UserForm2'deki alanlara alıp orada işlemek istiyorum.
UserForm1'deki listbox tıklama kodu...
malesef hocam yine olmadı.
Private Sub TextBox1_Change()
Dim sh As Worksheet
Dim SonSatir As Long
Dim SiraNo As Range
Dim Satir As Long
Set sh = Sheets("GÖRÜŞMELER")
SonSatir = sh.Cells(Rows.Count, "A").End(3).Row
Set SiraNo = sh.Range("A5:A" & SonSatir)
If SiraNo.Find(TextBox1.Text...
Merhaba arkadaşlar.
Userform yüklenirken Combobox1'e KURUMLAR isimli tablodan KURUM_ADI alanı yükleniyor. İstiyorum ki bu esnada seçilen kuruma ait diğer bilgilerde ilgili textboxlara yüklensin.
Private Sub listeye_al()
With Me.ListView1
.Gridlines = True
.FullRowSelect = True
.View =...
Merhabalar,
Userform üzerinde 1 listview ve 100'e yakın textbox bulunmakta. listview'e kayıt ettiğim verileri, textbox'a sürükleyerek bırakıyorum. textbox'a bıraktığım veriyi tekrar mouse'la başka textbox'a sürükle bırak yöntemiyle hallediyorum. sorunum ise, textbox'tan textbox'a veriyi...
Merhabalar,
Userform üzerinde 100'e yakın textbox var. userform açıldığı zaman bunların hepsinin göstermek istiyorum. ancak textbox ölçüleri excel hücrelerinde. userform açıldığında textbox'ların excel hücresinde yer alan ölçülere göre (height, width, top..) userform üzerinde göstermek...
merhaba arkadaşlar userform da oluşturduğum dikey verileri işedikten sonra yatay olarak sayfa5'e kaydetmek istiyorum fakat ''compile error method or data member not found hatası'' alıyorum formülde nerde yanlış var çözemedim yadımcı olursanız sevinirim şimdiden teşekkür ederim.
Private Sub...
Aşağıdaki Kod İle Açılan Listboxda Küçük Büyük Karakter Kontrolü var Büyük Küçük Kelime Duyarlılığını Nasıl Kapatırım. ve ayrıca sadece Gelen Sayfada Arama yapıyor ben gelen ve giden sayfada arama yapmak istiyorum mümkünmü ?
ListBox Kodu
Private Sub Arama_Click()
Set bul =...
Çalışma kitabında KumasC çalışma sayfasının H sütunundaki ürün isimlerini Private Sub ComboBox1_Change()
Dim S1 As Worksheet, Bul As Range, Son As Long, Veri As Range, Say As Long, Liste()
Set S1 = Sheets("KumasC")
ReDim Liste(1 To 1)
Say = 1
Son =...
Birinci ComboBoxtaki kodum;
Private Sub ComboBox2_Change()
Dim c As Range, _
s1 As Worksheet, _
Adr As String
ComboBox4.Clear
Set s1 = Sheets("DERS_KONU_KAZANIM")
With s1.Range("A:A")
Set c = .Find(ComboBox2.Value, LookIn:=xlValues)
If...
Kolay gelsin. Projelerde özellikle userform olanlarda Private Declare eklenerek kütüphane ekleniyor. Bu kütüphanelerin hangisi hangi işlem için kullanılır. Öğrenebileceğim bir yer var mı?
Bir de 2010 da çalışlan (32 veya 64 bitte de çalışan ) bir proje şimdi çalışmıyor. for i = 1 to 9 satırında...
Merhabalar,
Aşağıdaki kod aracılığıyla, Word dosyaların alt bilgi kısmında yer alan bilgileri değiştiyorum, ama tek seçenek sunuyor, Userform hazırladım kodlarda nasıl değişklik yapabiliriz?
Sub WD_Altbilgi()
eskibilgi = Application.InputBox("ESKİ BİLGİ veri girişi yapınız."...
Merhaba,
ek dosyada userform içerisinde açıklama yaptım.
aşağıda ustaların çalışmalarından revize ettiğim Listview filtreleme kodu ilk tasarımda çalışıyor.
başka bir userform çalışması eklemesi yaptıktan sonra çalışmıyor.
enteransan olan bu kod başka avukat arkadaşım için yaptığım çalışmada...
Merhabalar Userform üzerinde 1 ad listbox ve 2 ad textbox bulunmaktadır.Excel sayfasından Listboxa 45 sutunluk veri çekiyorum.Textboxtlara girdiğim değerlere göre ilgili sütünlarda arama yapmak istemekteyim.
Forumdan bulduğum kodlara göre Textbox 1 ve Textbox 2 içerisine yazdığım değere göre...
Merhabalar;
Hasta listemin olduğu sayfadan belirlediğim aralıktaki hasta bilgilerini ayrı bir listeye aktarmaktayım. Bu kodlar ile;
Sub hstalste()
Dim li As Worksheet, ilk As Range, son As Range, son2 As Long
Set li = ThisWorkbook.Worksheets("ICPMS")
sayfa_adı =...
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.