Option Button ile veri yazdırma

[metince54]

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.

 

[Orion1]

Verdiğiniz ismimi yoksa captionumu yazdıracaksınız?

 

[metince54]

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

 

[Orion1]

O zaman captionunu yazmak istiyorsunuz,doğrumu?

 

[metince54]

doğrudur

 

[Orion1]

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?

 

[metince54]

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.

 

[metince54]

ayrıca ilginiz için sonsuz teşekkür ederim

 

[Orion1]

Buyurun.

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

 

[metince54]

Buyurun.

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

Ç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

 

[Orion1]

Ç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

Zaten ona kod yazışlmış.
G sütununda hücreden YAPILDI seçince tarih atıyor.

 

[metince54]

yapılmadı deyıncede tarih atıyor hücrede aksiyon olunca tarih geliyor ben sadece yapıldı yazınca olsun istiyorum

 

[Orion1]

yapılmadı deyıncede tarih atıyor hücrede aksiyon olunca tarih geliyor ben sadece yapıldı yazınca olsun istiyorum

Sayfa modülünde yazmış olduğunuz kodu silin.
Aşağıdaki kodları yapıştırın.

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

 

[metince54]

Sayfa modülünde yazmış olduğunuz kodu silin.
Aşağıdaki kodları yapıştırın.

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

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.

 

[Orion1]

Niye dosyanızı xlsb uzantılı yaptınız?Normalde xlsm uzantılı olması lazım.

 

[metince54]

boyut küçülsün diye

 

[metince54]

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.

 

[Orion1]

Dosyanız ektedir.

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

 

[metince54]

Ç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.

 

[metince54]

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