• DİKKAT

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

Süz geçerli sütunları aktar

Malesef yine olmadı :( çok basit bir sorun aslında ama o noktayı bulamıyoruz.:)
 
sorun fatura bas sayfasına girilen faturan numarasının başka makro tarafından tetiklenmesi. Onun yerine o makrodaki uygulamayı CommandButton içerisinde işler hale getirmek. Onu düzenlemeye çalışıyorum.
 
leumruk bey sizde burdaymışınız size zahmet bir ilgilenseniz bu dosyayla sorunu sağolsun mx@raid beyin de yardımlarıyla çözmeye çalışıyoruz ama sanırım ufak bir noktada takılıyoruz.
 
arkadaşlar her yolu deniyorum olmuyo yokmu bu dosyaya bi çare
 
genelde sayfa adlarının aralarını boş bırakmayınız tire işareti veya- eksi işareti ile doldurunuz.


Private Sub CommandButton1_Click()
Sheets("FATURA_BAS").Cells(1, 5).Value = ComboBox1.Text
aktar
Dim i As Long, a As Long
ReDim myarr(1 To 5, 1 To 1)
On Error Resume Next
With Sheets("Fatura_Bas")
For i = 5 To .Cells(65536, "e").End(xlUp).Row
If .Cells(i, "e").Value = ComboBox1.Value Then
a = a + 1
ReDim Preserve myarr(1 To 14, 1 To a)
For k = 1 To 5
myarr(k, a) = .Cells(i, k).Value
Next k
End If
Next i
Sheets("FATURA_BAS").Range("e1").Value = ComboBox1.Text
TextBox1.Value = Format(Sheets("FATURA_BAS").Cells(47, "e").Value, "#,#0.00 TL")
TextBox2.Value = Format(Sheets("FATURA_BAS").Cells(48, "e").Value, "#,#0.00 TL")
TextBox3.Value = Format(Sheets("FATURA_BAS").Cells(49, "e").Value, "#,#0.00 TL")
End With
ListBox1.ColumnCount = 5
ListBox1.RowSource = "FATURA_BAS!a24:e43"
ListBox1.BoundColumn = 0
ListBox1.ColumnWidths = "215;130;70;80;80"
End Sub
Private Sub CommandButton2_Click()
Fatura_Bas.Hide
Sheets("FATURA_BAS").Select
Worksheets("FATURA_BAS").PrintPreview
Worksheets("FATURA_BAS").PageSetup.PrintArea = ""
Fatura_Bas.Show
End Sub
Private Sub UserForm_Initialize()
For i = 2 To WorksheetFunction.CountA(Worksheets("KAYIT_DEFTERİ").Range("A2:A65000")) + 2
If Sheets("KAYIT_DEFTERİ").Cells(i, 15).Value > 0 Then
ComboBox1.AddItem Sheets("KAYIT_DEFTERİ").Cells(i, 15).Value
End If
Next i
ListBox1.ColumnCount = 5
ListBox1.RowSource = "FATURA_BAS!a24:e43"
ListBox1.BoundColumn = 0
ListBox1.ColumnWidths = "215;130;70;80;80"
End Sub
 
Son düzenleme:
halit hocam çok teşekkür ederim nasıl rahatladım anlatamam.:):):)
 
iyi çalışmalar
 
Halit Bey
ComboBox1.RowSource = "KAYIT_DEFTERİ!O2:O65000"
Genişletmek için tıkla ...
bu kod yerine son boş satıra kadar listelemesini istesek ne yapabiliriz. Birde arada boş satırları görmese.
 
ComboBox1.RowSource = "KAYIT_DEFTERİ!O2:O" & WorksheetFunction.CountA(Worksheets("KAYIT_DEFTERİ").Range("A2:A65000")) + 2

bunu denermisiniz.
 
Teşekkürler Halit Bey yardımlarınızla çok şeyler öğreniyoruz. Boşlukları çıkarıp sadece dolu olan satırları görmesini de sağlayabilir miyiz?
 
ComboBox1.RowSource = "KAYIT_DEFTERİ!O2:O" & WorksheetFunction.CountA(Worksheets("KAYIT_DEFTERİ").Range("A2:A65000")) + 2

bunun yerine


For i = 2 To WorksheetFunction.CountA(Worksheets("KAYIT_DEFTERİ").Range("A2:A65000")) + 2
If Sheets("KAYIT_DEFTERİ").Cells(i, 15).Value > 0 Then
ComboBox1.AddItem Sheets("KAYIT_DEFTERİ").Cells(i, 15).Value
End If
Next i

bunu denermisiniz.
 
Halit Bey Çok teşekkürler emeğinizi esirgemediğiniz için. Yüreğinize, zihninize sağlık.
 
iyi akşamlar
 
Tam oldu simdi :)

Halit bey gercekten cok tesekkur ederim son eklediginiz kodla tam istedigim oldu simdi Baska arkadaslarinda bu dosyayi kullanmalari icin son rutuslari yapiyorum bugun Tarim Tum forumdaki arkadaslarla paylascam ins. Bu dosya sizin gibi yardimci olan hocalarim sayesinde bu konuma geldi. Cok tesekkur ederim. :)
 
Bilgi aktarımda sorun

Halit hocam son rutuşları yaparken yine bir sıkıntı yaşadım size zahmet dosyayı bir kez daha inceleyebilirmisiniz.
 

Ekli dosyalar

bu kodu denermisiniz.

Private Sub CommandButton1_Click()
Sheets("FATURA_BAS").Cells(1, 5).Value = ComboBox1.Text
aktar
Dim i As Long, a As Long
ReDim myarr(1 To 5, 1 To 1)
On Error Resume Next
With Sheets("Fatura_Bas")
For i = 5 To .Cells(65536, "e").End(xlUp).Row
If .Cells(i, "e").Value = ComboBox1.Value Then
a = a + 1
ReDim Preserve myarr(1 To 14, 1 To a)
For k = 1 To 5
myarr(k, a) = .Cells(i, k).Value
Next k
End If
Next i
Sheets("FATURA_BAS").Range("e1").Value = ComboBox1.Text
Sheets("FATURA_BAS").Range("A9").Value = TextBox4.Text
TextBox1.Value = Format(Sheets("FATURA_BAS").Cells(47, "e").Value, "#,#0.00 TL")
TextBox2.Value = Format(Sheets("FATURA_BAS").Cells(48, "e").Value, "#,#0.00 TL")
TextBox3.Value = Format(Sheets("FATURA_BAS").Cells(49, "e").Value, "#,#0.00 TL")
End With
ListBox1.ColumnCount = 5
ListBox1.RowSource = "FATURA_BAS!a24:e43"
ListBox1.BoundColumn = 0
ListBox1.ColumnWidths = "215;130;70;80;80"
For i = 2 To WorksheetFunction.CountA(Worksheets("FİRMA_KAYIT").Range("B2:B65000")) + 2
If Sheets("FİRMA_KAYIT").Cells(i, 2).Value = TextBox4.Text Then
Sheets("FATURA_BAS").Cells(12, 3).Value = Sheets("FİRMA_KAYIT").Cells(i, 7).Value
Sheets("FATURA_BAS").Cells(12, 5).Value = Sheets("FİRMA_KAYIT").Cells(i, 8).Value
Sheets("FATURA_BAS").Cells(9, 1).Value = Worksheets("KAYIT_DEFTERİ").Cells(ComboBox1.ListIndex + 4, 3).Value
End If
Next i
End Sub
Private Sub CommandButton2_Click()
Fatura_Bas.Hide
Sheets("FATURA_BAS").Select
Worksheets("FATURA_BAS").PrintPreview
Worksheets("FATURA_BAS").PageSetup.PrintArea = ""
Fatura_Bas.Show
End Sub
Private Sub UserForm_Initialize()
sat = WorksheetFunction.CountA(Worksheets("KAYIT_DEFTERİ").Range("C4:C65000")) + 2
ComboBox1.RowSource = "KAYIT_DEFTERİ!O2:O" & sat
ListBox1.ColumnCount = 5
ListBox1.BoundColumn = 0
ListBox1.ColumnWidths = "215;130;70;80;80"
ComboBox1.RowSource = "KAYIT_DEFTERİ!O4:O" & sat
End Sub
Private Sub ComboBox1_Change()
sat = ComboBox1.ListIndex + 4
TextBox4.Text = Worksheets("KAYIT_DEFTERİ").Cells(sat, 3).Value
For i = 2 To WorksheetFunction.CountA(Worksheets("FİRMA_KAYIT").Range("B2:B65000")) + 2
If Sheets("FİRMA_KAYIT").Cells(i, 2).Value = TextBox4.Text Then
TextBox5.Text = Sheets("FİRMA_KAYIT").Cells(i, 7).Value
TextBox6.Text = Sheets("FİRMA_KAYIT").Cells(i, 8).Value
End If
Next i
End Sub
 
Son düzenleme:
For i = 2 To WorksheetFunction.CountA(Worksheets("FİRMA_KAYIT") .Range("B2:B65000")) + 2

Sheets("FATURA_BAS").Cells(9, 1).Value = Worksheets("KAYIT_DEFTERİ").Cells(ComboBox1.ListIn dex + 4, 3).Value

For i = 2 To WorksheetFunction.CountA(Worksheets("FİRMA_KAYIT") .Range("B2:B65000")) + 2

hocam yukarıdaki kodlarrı kırmızı renkle gösteriyor ve formu hiç açmıyor
 
herhalde arada boşluk oluyor
ComboBox1.ListIn dex

bunun başluğunu kapar
ComboBox1.ListIndex
 
birde bundaki boşluğu alacaksın
WorksheetFunction.CountA(Worksheets("FİRMA_KAYIT") .Range("B2:B65000")) + 2

WorksheetFunction.CountA(Worksheets("FİRMA_KAYIT").Range("B2:B65000")) + 2
 
nasıl yani hocam boşluğu alacaksın kısmını anlamadım
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst