• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Option Button ile veri yazdırma

M

metince54

Katılım
9 Aralık 2009
Mesajlar
160
Excel Vers. ve Dili
Office 2016 TR 64 Bit
merhaba arkadaşlar. ekli dosyada useform çalıştırdığımız seçtığım optıons button ile ona verdiğim isimi J sutunune yazdırmak istiyorum. yardımlarınız için şimdiden teşekkür ederim.
 

Ekli dosyalar

Verdiğiniz ismimi yoksa captionumu yazdıracaksınız?
 
Günlük işler, radyatör vs olan hangisini seçtimse o yazılmasını istemekteyim. daha sonradan değiştirme açısındanda kolaylık olur diye düşünüyorum
 
O zaman captionunu yazmak istiyorsunuz,doğrumu?
 
Ne yaparken option butonunun captionunu yazdırmak istiyorsunuz?
Option butonunu tıkladığınız zamanmı,kaydet butonuna tıkladığınız zamanmı,yoksa başka bir şeymi?
 
kaydet tuşuna bastığımda j sutununa yazması kafidir. arıza yeri,arıza ve telefon nosu yazıp sonra seceneklerden 1ini secip kaydet dediğimde yazdırmış olması gerekmektedir.
 
Buyurun.:cool:
Rich (BB code): 
Private Sub CommandButton1_Click()
Dim Mutlu As Long, Say As Byte, i As Byte
Mutlu = Range("A65536").End(3).Row + 1
Cells(Mutlu, "A") = TextBox1.Text
Cells(Mutlu, "B") = TextBox2.Text
Cells(Mutlu, "D") = TextBox3.Text
For i = 1 To 6
    If Me.Controls("Optionbutton" & i) = True Then
        Cells(Mutlu, "J") = Me.Controls("Optionbutton" & i).Caption
        Exit For
    End If
Next i
MsgBox "Kayıt İşlemi Tamamlanmıştır"
Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox", "ComboBox"
Nesne = ""
End Select
Next
End Sub
 
Orion1' Alıntı:
Buyurun.:cool:
Rich (BB code): 
Private Sub CommandButton1_Click()
Dim Mutlu As Long, Say As Byte, i As Byte
Mutlu = Range("A65536").End(3).Row + 1
Cells(Mutlu, "A") = TextBox1.Text
Cells(Mutlu, "B") = TextBox2.Text
Cells(Mutlu, "D") = TextBox3.Text
For i = 1 To 6
    If Me.Controls("Optionbutton" & i) = True Then
        Cells(Mutlu, "J") = Me.Controls("Optionbutton" & i).Caption
        Exit For
    End If
Next i
MsgBox "Kayıt İşlemi Tamamlanmıştır"
Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox", "ComboBox"
Nesne = ""
End Select
Next
End Sub
Genişletmek için tıkla ...

Çooooooooooooooooooook teşekkür ederim ilginiz alakanız yardımınız için.

birşey daha isteyebilir miyim? G sutununda yapıldı yapılmadı veri listesi var. ben hareket gördüğünde tarih atmasını yapabildim onu sadece yapıldı yazıldığında tarihi nasıl attırabiliriz. Bugün formolu hergün değişmektedir vba bilgim malesef yok denilenecek kadar az. Şimdiden teşekkür ederim
 
metince54' Alıntı:
Çooooooooooooooooooook teşekkür ederim ilginiz alakanız yardımınız için.

birşey daha isteyebilir miyim? G sutununda yapıldı yapılmadı veri listesi var. ben hareket gördüğünde tarih atmasını yapabildim onu sadece yapıldı yazıldığında tarihi nasıl attırabiliriz. Bugün formolu hergün değişmektedir vba bilgim malesef yok denilenecek kadar az. Şimdiden teşekkür ederim
Genişletmek için tıkla ...
Zaten ona kod yazışlmış.
G sütununda hücreden YAPILDI seçince tarih atıyor.:cool:
 
yapılmadı deyıncede tarih atıyor hücrede aksiyon olunca tarih geliyor ben sadece yapıldı yazınca olsun istiyorum
 
metince54' Alıntı:
yapılmadı deyıncede tarih atıyor hücrede aksiyon olunca tarih geliyor ben sadece yapıldı yazınca olsun istiyorum
Genişletmek için tıkla ...
Sayfa modülünde yazmış olduğunuz kodu silin.
Aşağıdaki kodları yapıştırın.:cool:
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G2:G" & Rows.Count)) Is Nothing Then Exit Sub
If Target.Value = "YAPILDI" Then
    Target.Offset(0, 1).Value = Date
Else
    Target.Offset(0, 1).Value = ""
End If
End Sub
 
Orion1' Alıntı:
Sayfa modülünde yazmış olduğunuz kodu silin.
Aşağıdaki kodları yapıştırın.:cool:
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G2:G" & Rows.Count)) Is Nothing Then Exit Sub
If Target.Value = "YAPILDI" Then
    Target.Offset(0, 1).Value = Date
Else
    Target.Offset(0, 1).Value = ""
End If
End Sub
Genişletmek için tıkla ...

mükemmel ötesi birşey oldu benim için emeğinize sağlık.
son 1 istekte bulabilir miyim.

arıza geçmişine veri getirme konusunda yardımcı olursanız çok müteşekkir olcam size. istediğim şeyi açıklama yaptım . formulle deneyecektim ama exceli min derecede boyutunu düşük tutmak istiyorum.
 

Ekli dosyalar

  • 7.7z
    7.7z
    333.3 KB · Görüntüleme: 20
Niye dosyanızı xlsb uzantılı yaptınız?Normalde xlsm uzantılı olması lazım.:cool:
 
siz ne yapmak istediğimi ve çalışma mantığını az çok anladiğinizi düşünüyorum, tavsiyelere açığım. sn çıtır benle bi dosya paylastı ama işyerinde bakamadım evdede unuttum bakmaya https://www.excel.web.tr/threads/useformdaki-veriyi-sutuna-yazdirma-ve-veri-cekme.180454/ bu aksam inş bunada bakıcam. sizin bana vereciğiniz tavsiye önerileriniz var alabilirim. tekrar etmek istiyorum yardımlarınız için çooooooooook teşekkür ederim ayrıca hızlı geri dönüşleriniz içinde.
 
Dosyanız ektedir.:cool:
Kod: 
Sub aktar_59()
Dim k As Range, sonsat As Long, sh As Worksheet
Dim sat As Long
Sheets("ARIZA GEÇMİŞİ").Select
Range("A6:H" & Rows.Count).ClearContents
If Cells(1, "D").Value = "" Then
    MsgBox "D1 hücresinde Aranacak veri yok!" & vbLf & "İşlem iptal oldu"
End If
sat = 6
Set sh = Sheets("İŞLER")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
Set k = sh.Range("A2:A" & sonsat).Find(Range("D1").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    adrs = k.Address
    Do
        Cells(sat, "A").Value = sat - 5
        Cells(sat, "B").Value = k.Value
        Cells(sat, "C").Value = sh.Cells(k.Row, "B").Value
        Cells(sat, "D").Value = sh.Cells(k.Row, "E").Value
        Cells(sat, "E").Value = sh.Cells(k.Row, "G").Value
        If Cells(sat, "E").Value = "YAPILDI" Then
            Cells(sat, "F").Value = sh.Cells(k.Row, "H").Value
            Cells(sat, "G").Value = Date - Cells(sat, "F").Value
            Cells(sat, "F").Value -Cells(sat, "D").Value
        End If
        sat = sat + 1
        Set k = sh.Range("A2:A" & sonsat).FindNext(k)
    Loop While Not k Is Nothing And adrs <> k.Address
End If
MsgBox "İşlem tamamlandı."
            
End Sub
 

Ekli dosyalar

Çok sağolun hemen deneyeceğim. programi şimdi kurcalarken ufacık 1 sorunla karşılaştım.


Arıza geçmişi sayfasında arıza ekle dediğimizde kaydettiğimizde işler sayfasına değilde olduğu sayfaya kaydettiğini farkettim. bunu işler sayfasına son satıra ekleyecek şekilde revize edebilir miyiz.
 
emeğinize sağlık güzel çalışma oldu. ufak bir kaç şaşma olmuş sanırım arıza tipi dediğimiz j sutunundan alması gerekiyordu veriyi orada ufak bi gözden kaçma olmuş sanırım(ben kurcaladım bu sefer bozuldu komple ). yapıldı olan secenekli veri gelince "Cells(sat, "F").Value -Cells(sat, "D").Value" hata veriyor
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst