listbox yardım

[YILDIZ YAĞMURU]

Aşağıdaki ListBox1.Column(18) daki veriyi, c161 e değilde en son dolu satırdan sonra ki 5. satıra nasıl gönderebiliriz


Private Sub ListBox1_Click()
Sheets("SIPARIS").Range("C4") = ListBox1.Column(1)
Sheets("SIPARIS").Range("D4") = ListBox1.Column(2)


Sheets("SIPARIS").Range("c161") = ListBox1.Column(18)





End Sub

 

[Orion1]

Buyurun.

Dim sat As Long
sat = Cells(Rows.Count, "C").End(xlUp).Row + 5
Sheets("SIPARIS").Range("c" & sat) = ListBox1.Column(18)

 

[YILDIZ YAĞMURU]

Buyurun.

Dim sat As Long
sat = Cells(Rows.Count, "C").End(xlUp).Row + 5
Sheets("SIPARIS").Range("c" & sat) = ListBox1.Column(18)

Sayın Orion1 çok teşekkürler fakat şimdide şöyle bir durum ortaya çıktı . aşağıdaki kod ile c161 e listboxtaki veriyi gönderdikten sonra c161161 hücrelerini biçimlendiriyordum. şimdi ; Son dolu satıırdan 5 satır sonra veriyi gönderdikten sonra o hücreleri (O sütununa kadar) nasıl birleştirip biçimledireceğim vallahi benim kafam karıştı yazarken inş yanlış bişi yazmadım .

Sub siparis_düzen1()
On Error Resume Next
Sheets("SIPARIS").Range("c161").RowHeight = 80
Sheets("SIPARIS").Range("C161").HorizontalAlignment = xlLeft
Sheets("SIPARIS").Range("C161").VerticalAlignment = xlTop
Sheets("SIPARIS").Range("C161161").WrapText = True
Sheets("SIPARIS").Range("C161161").ShrinkToFit = False
Sheets("SIPARIS").Rows("161:162").Borders.LineStyle = xlNone
Sheets("SIPARIS").Range("C161:O161").Merge
Sheets("SIPARIS").Range("B161") = "BİLGİ:"
Sheets("SIPARIS").Range("b161").VerticalAlignment = xlTop

End Sub

 

[Orion1]

Bir tanesini örnek vereyim.Siz diğerlerini yapın.

sat = sheets("SIPARIS").cells(rows.count,"C").end(xlup).row
Sheets("SIPARIS").Range("c" & sat).RowHeight = 80

Sayın Orion1 çok teşekkürler fakat şimdide şöyle bir durum ortaya çıktı . aşağıdaki kod ile c161 e listboxtaki veriyi gönderdikten sonra c161161 hücrelerini biçimlendiriyordum. şimdi ; Son dolu satıırdan 5 satır sonra veriyi gönderdikten sonra o hücreleri (O sütununa kadar) nasıl birleştirip biçimledireceğim vallahi benim kafam karıştı yazarken inş yanlış bişi yazmadım .

Sub siparis_düzen1()
On Error Resume Next
Sheets("SIPARIS").Range("c161").RowHeight = 80
Sheets("SIPARIS").Range("C161").HorizontalAlignment = xlLeft
Sheets("SIPARIS").Range("C161").VerticalAlignment = xlTop
Sheets("SIPARIS").Range("C161161").WrapText = True
Sheets("SIPARIS").Range("C161161").ShrinkToFit = False
Sheets("SIPARIS").Rows("161:162").Borders.LineStyle = xlNone
Sheets("SIPARIS").Range("C161:O161").Merge
Sheets("SIPARIS").Range("B161") = "BİLGİ:"
Sheets("SIPARIS").Range("b161").VerticalAlignment = xlTop

End Sub

 

[YILDIZ YAĞMURU]

Bir tanesini örnek vereyim.Siz diğerlerini yapın.

sat = sheets("SIPARIS").cells(rows.count,"C").end(xlup).row
Sheets("SIPARIS").Range("c" & sat).RowHeight = 80

maalesef bu kod hata veriyor

 

[Orion1]

maalesef bu kod hata veriyor

Dosyanızın son halini yükleyiniz.

 

[YILDIZ YAĞMURU]

Dosyanızın son halini yükleyiniz.

Sn Orion1 .. 3 nolu mesajda kırmızı ile belirttiğim kodlar hariç diğerlerini hallettim fakat kırmızı ile belirttiklerim yani kenarlık kaldır ve C:Q hücre leri birleştir i yapamadım

 

[Orion1]

Sn Orion1 .. 3 nolu mesajda kırmızı ile belirttiğim kodlar hariç diğerlerini hallettim fakat kırmızı ile belirttiklerim yani kenarlık kaldır ve C:Q hücre leri birleştir i yapamadım

daha önce o bölgede hücre birleştirme yapıldıysa hata verir.
2 satırı kırmızı yapmışsınız.Ama hangisinde hata veriyor.1nci kırmızı satırmı yoksa 2nci kırmızı satırmı?

 

[YILDIZ YAĞMURU]

daha önce o bölgede hücre birleştirme yapıldıysa hata verir.
2 satırı kırmızı yapmışsınız.Ama hangisinde hata veriyor.1nci kırmızı satırmı yoksa 2nci kırmızı satırmı?

hata filan yok zaten başta sona hata çünki aşağıdaki sizin verdiğiniz koda hiç uyduramadımki bunları ( kırmızı ile belirttiğim iki kod )

sizin verdiğiniz kod

sat = sheets("SIPARIS").cells(rows.count,"C").end(xlup).row
Sheets("SIPARIS").Range("c" & sat).RowHeight = 80

 

[Orion1]

hata filan yok zaten başta sona hata çünki aşağıdaki sizin verdiğiniz koda hiç uyduramadımki bunları ( kırmızı ile belirttiğim iki kod )

sizin verdiğiniz kod

sat = sheets("SIPARIS").cells(rows.count,"C").end(xlup).row
Sheets("SIPARIS").Range("c" & sat).RowHeight = 80

Dosyayı bir görmem lazım.

 

[YILDIZ YAĞMURU]

Dosyayı bir görmem lazım.

maalesef çok buyuk bir dosya

 

[Orion1]

maalesef çok buyuk bir dosya

Bir kopyasını çıkarın.
Onda 30-40 satır uyduruk veriler girin , diğer satırları silin ve ekleyin.