ComboBox3 formül hakkında

[Bakigemlik]

sayın kuvari dosya mb yüksek diye yükle yememiştim bazı verileri sildim

Birde içinde kısa bir kod olmasına rağmen mb 9 ları buluyor neden olabilir acaba

Teşekkürler

 

[Bakigemlik]

Ali Bey öncelikle desteğiniz için teşekkürler, verdiğiniz kodlar sorunumun bir bölümü için çare oldu, "J" hücresine seçtiğim chekbox ismi geliyor sorun yok benim burada istediğim ilave olay ben kaç tane Chekbox seçersem o kadar kayıt oluşturması,
2 Chekbox seçtiğimde bütün bilgiler aynı olacak şekilde 2 kayıt yapacak "Ana Dosya" ya bu kayıtlarda sadece Chekbox ların yazılı olduğu J" sütunu farklı olacak, (hangi Chekbox seçiliyse onların ismi yazacak),

Tekrar Teşekkürler,

 

[alicimri]

Sayın Bakigemlik
Gönderdiğim kodlar kaç chekbox işaretlerseniz sizin istediğiniz gibi o kadar kayıt yapar. Eğer dosyanızı xls formatında tc.dosya sitesine yüklerseniz, sorunun nerde olduğunu anlayabilirim. xlsm dosyası bende salt okunur açılıyor.(Benim ofis 2003)

 

[Bakigemlik]

Ali Bey, dosyayı yükledim ilginize tekrar teşekkürler,

http://www.dosya.tc/server6/sd6idv/lastik_takip.rar.html

 

[alicimri]

Sayın Bakigemlik
Önce gönderdiğiniz dosyada Chekboxların name ler Chekbox1 Chekbox2 şeklinde idi. kodları ona yazmıştım.
Sonradan ilk iki Chekbox "name"ni Sol_Ön, Sol_Dış şeklinde değiştirmişsiniz.
Eğer Name'leri illa değiştirmek istiyorsanız Tag özelliği kullanılabilir.
Chekbox ların Tag özelliklerine Chekbox yazın GroupName lerden hepsi kelimesini silin kodlar aşağıda

Private Sub CommandButton1_Click()
Dim x As Control
For Each x In Me.Controls
If x.Tag = "CheckBox" Then
If x.Value = True Then
Son_Dolu_Satir = Sheets("Ana Dosya").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("Ana Dosya").Range("A" & Bos_Satir).Value = _
    Application.WorksheetFunction.Max(Sheets("Ana Dosya").Range("A:A")) + 1
    Sheets("Ana Dosya").Range("A" & Bos_Satir).Value = UserForm1.ComboBox3.Text
    Sheets("Ana Dosya").Range("B" & Bos_Satir).Value = UserForm1.TextBox4.Text
    Sheets("Ana Dosya").Range("C" & Bos_Satir).Value = UserForm1.TextBox5.Text
    Sheets("Ana Dosya").Range("D" & Bos_Satir).Value = UserForm1.ComboBox6.Text
    Sheets("Ana Dosya").Range("E" & Bos_Satir).Value = UserForm1.TextBox7.Text
    Sheets("Ana Dosya").Range("F" & Bos_Satir).Value = UserForm1.ComboBox7.Text
    Sheets("Ana Dosya").Range("G" & Bos_Satir).Value = UserForm1.ComboBox2.Text
    Sheets("Ana Dosya").Range("H" & Bos_Satir).Value = UserForm1.TextBox1.Text
    Sheets("Ana Dosya").Range("K" & Bos_Satir).Value = UserForm1.TextBox9.Text
    Sheets("Ana Dosya").Range("J" & Bos_Satir).Value = x.Caption
End If
End If
    Application.ScreenUpdating = False
Unload UserForm2
Application.ScreenUpdating = True
End Sub

 

[Bakigemlik]

Ali bey,

Compile Eror for without next hatası aldım,

 

[alicimri]

Kusura bakmayın Next satırını unutmuşum.

End If
End If

satırının altına aşağıdaki gibi Next ifadesini ekleyin

End If
End If
Next

 

[Bakigemlik]

Ali Bey öncelikle sabrınız ve emeğiniz için çok teşekkürler,

Dediğiniz gibi uyguladım ama şimdi de dosya kaydetmiyor, aşağıdaki linke ekledim rica etsem kontrol etme imkanınız varmı,

http://www.dosya.tc/server6/57dt92/lastik_takip.rar.html

 

[alicimri]

Sayın Bakigemlik
Dosyanızı farklı kaydet ile ofis 2003 formatında (.xls uzantılı) değiştirip, söz konusu siteye yükleyin, gerekli değişlikleri yapıp sonucu aynı siteye yükleyeyim.

 

[alicimri]

Örnek dosya ekte
http://s6.dosya.tc/server5/7g1xnq/ornek.zip.html

 

[Bakigemlik]

Örnek dosya ekte
http://s6.dosya.tc/server5/7g1xnq/ornek.zip.html

Ali Bey emeğiniz için çok teşekkürler, hakkınızı helal edin istediğim gibi oldu şuan ,