Satır kopyalama..

[Levent Menteşoğlu]

Ne demek istediğimi ekli dosyada bir örnekle sunuyorum. Dosyadaki "RAPOR AL" butonuna basarak gerekli işlemleri yaparak sonucu görebilirsiniz.

 

[tirEdsOuL]

simdi anladim demek istediğinizi.. ve büyük ihtimalle buda işimizi görecektir.. neticeyi yarin size bildiririm çok teşekkürler uğraşınız için..

 

[Levent Menteşoğlu]

Rica ederim.

 

[tirEdsOuL]

Hocam peki aşağıdaki kodlara alfabetik sıralamayı nasil ekleyebilirim? yani rapor al butonuna tikladiktan sonra seçeceğim firma isimlerinin alfabetik sırada olmasını istiyorum ?

Dim s1, s2
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
s2.Cells.ClearContents
If s1.AutoFilterMode = False Then s1.[b1:l65536].AutoFilter
s1.[b1:z65536].AutoFilter Field:=2, Criteria1:=ComboBox1
s1.[a1].CurrentRegion.Copy s2.[a1]
s1.ShowAllData
s2.Select
End Sub
Private Sub UserForm_Initialize()
Set s1 = Sheets("günlük ihbarlar ana")
Set s2 = Sheets("rapor")
For a = 2 To s1.[b65536].End(3).Row
If WorksheetFunction.CountIf(s1.Range("c2:c" & a), s1.Cells(a, "c")) = 1 Then
ComboBox1.AddItem s1.Cells(a, "c")
End If
Next
End Sub

 

[janveljan]

Mesajdaki ilk soruya cevap olarak yazıyorum.
Gerçi makrolarla bir çözüm bulunmuş ama bu da alternatif çözüm olsun, fonksiyon kullanılarak her firma sayfasında kendi değerlerini süzüyor.

(Formüller dizi formülüdür.)

 

[tirEdsOuL]

evet bu yapmiş olduğunuzda benim isteğime tam olarak cevap veriyor.. bana mantiğini biraz açiklarmisiniz? yeni bir firma eklediğimde felan ne yapmam gerekiyor.. M1 sütununa bazı sayılar eklemişsiniz bunun amaci nedir? mesela ben tiredsoul adinda bir firma oluşturdum ve bunun için bir sayfa açtim tiredsoul adında.. sonra sizin yapmüş olduğunuz A'dan M'ye kadar ilk iki satırını kopyaladim tiredsoul sayfasinda aynı yere kopyaladim ama bana kopyalamiş olduğum yerdeki firmanın bilgilerini verdi? kısa bir açiklama ile mantiğini anlayabilirim sanirim..

 

[janveljan]

evet bu yapmiş olduğunuzda benim isteğime tam olarak cevap veriyor.. bana mantiğini biraz açiklarmisiniz? yeni bir firma eklediğimde felan ne yapmam gerekiyor.. M1 sütununa bazı sayılar eklemişsiniz bunun amaci nedir? mesela ben tiredsoul adinda bir firma oluşturdum ve bunun için bir sayfa açtim tiredsoul adında.. sonra sizin yapmüş olduğunuz A'dan M'ye kadar ilk iki satırını kopyaladim tiredsoul sayfasinda aynı yere kopyaladim ama bana kopyalamiş olduğum yerdeki firmanın bilgilerini verdi? kısa bir açiklama ile mantiğini anlayabilirim sanirim..

Dikkat ederseniz B1 hücresinde ilgili firmanın ismi var, hazır bir sayfayı kopyalayıp B1 hücresine yeni firmanın ismini yazdığınızda değerler otomatik gelecektir.
M1 hücresindeki değer ise o firmaya ait kaç kayıt olduğu gösteriyor, bu değeri görüntüyü kurtarmak için kullanıyoruz, sıralarken o değeri geçen satırları boş gösteriyor diğer türlü olmayan değerler için hata değeri gösterir.
Esas formüller de ise dizi formülleri, index formülü kullanarak değerleri getirtiyorum. Dizi formülleri şeklinde forumda aratırsanız birçok örnek mevcut.

 

[tirEdsOuL]

simdi anladim.. ben gözden kaçirmişim, B1 hücresinde Firma yazan yere firma adını yazacakmişim çok teşekkür ediyorum ilgi ve alakanız için..

 

[tirEdsOuL]

Hocam peki aşağıdaki kodlara alfabetik sıralamayı nasil ekleyebilirim? yani rapor al butonuna tikladiktan sonra seçeceğim firma isimlerinin alfabetik sırada olmasını istiyorum ?

Dim s1, s2
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
s2.Cells.ClearContents
If s1.AutoFilterMode = False Then s1.[b1:l65536].AutoFilter
s1.[b1:z65536].AutoFilter Field:=2, Criteria1:=ComboBox1
s1.[a1].CurrentRegion.Copy s2.[a1]
s1.ShowAllData
s2.Select
End Sub
Private Sub UserForm_Initialize()
Set s1 = Sheets("günlük ihbarlar ana")
Set s2 = Sheets("rapor")
For a = 2 To s1.[b65536].End(3).Row
If WorksheetFunction.CountIf(s1.Range("c2:c" & a), s1.Cells(a, "c")) = 1 Then
ComboBox1.AddItem s1.Cells(a, "c")
End If
Next
End Sub

Levent hocam bu sorumda hala geçerlidir..

 

[Levent Menteşoğlu]

Userform_initializedeki kodları aşağıdaki ile değiştirin.

Private Sub UserForm_Initialize()
Set s1 = Sheets("günlük ihbarlar")
Set s2 = Sheets("rapor")
s1.[an:an].ClearContents
For a = 2 To s1.[b65536].End(3).Row
If WorksheetFunction.CountIf(s1.Range("b2:b" & a), s1.Cells(a, "b")) = 1 Then
c = c + 1
s1.Cells(c, "an") = s1.Cells(a, "b")
End If
Next
s1.[an:an].Sort Key1:=s1.[an1], Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
ComboBox1.RowSource = "'günlük ihbarlar'!an1:an" & s1.[an65536].End(3).Row
End Sub