iki kodu birbirine ekleme

[sirkülasyon]

Private Sub UserForm_Initialize()



TextBox1.Text = Range("F3").Value
TextBox4.Text = Range("F4").Value
TextBox6.Text = Range("F5").Value
TextBox2.Text = Range("M3").Value
TextBox3.Text = Range("M4").Value
TextBox5.Text = Range("M5").Value

TextBox7.Text = Range("F9").Value
TextBox8.Text = Range("F10").Value
TextBox9.Text = Range("O10").Value
TextBox10.Text = Range("O11").Value
TextBox11.Text = Range("F11").Value
TextBox12.Text = Range("F12").Value

-------------------------------------------


Dim i As Long
ComboBox1.Clear
For i = 14 To Range("B65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("B14:B" & i), Range("B" & i).Value) = 1 Then
ComboBox1.AddItem Cells(i, "B").Value
End If
Next i



End Sub




Abilerim yukarıda yer alan iki kodu birbirine ekli nasıl yapabilirim?

 

[ExcelF1]

Zaten eklemiş görünüyorsunuz.

 

[sirkülasyon]

Sayın ExcelF1,
Makro kodu hata veriyor. Bu sebeple foruma döndüm. beşyüz kişi bakmış bir tek siz cevap vermişsiniz Teşekkür ederim.
yukarıda ki makroyu kullanma imkanınız var ise kullandığınızda zaten hata kendini gösterir.
Ben bu hataya çözüm istemiştim.
Saygılarımla

 

[suleyman242]

Sayın ExcelF1,
Makro kodu hata veriyor. Bu sebeple foruma döndüm. beşyüz kişi bakmış bir tek siz cevap vermişsiniz Teşekkür ederim.
yukarıda ki makroyu kullanma imkanınız var ise kullandığınızda zaten hata kendini gösterir.
Ben bu hataya çözüm istemiştim.
Saygılarımla

Dosyayı yollarsan dağa sağlıklı inceleme şansımız olur

 

[ExcelF1]

Sayın ExcelF1,
Makro kodu hata veriyor. Bu sebeple foruma döndüm. beşyüz kişi bakmış bir tek siz cevap vermişsiniz Teşekkür ederim.

Rica ederim de, ne tür bir hata alıyorsunuz, hata mesajı nedir ? Ve örnek bir dosya eklemeniz daha isabetli sonuçlar almanızı ve cevap verecek kişiler içinde Userform ve Textboxlar ile uğraşmadan daha kolay cevap vermelerini sağlayacaktır.