+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Comboboxda Verileri Sıralamak (/konu-comboboxda-verileri-siralamak.html)
RE: Comboboxda Verileri Sıralamak - m_demir - 13/05/2020
Haklısınız Hocam aşağıdaki şekilde olması gerekir.
For Z = 2 To Sheets.Count
If LCase(Sheets(Z).Name) <> "sayfa1" And LCase(Sheets(Z).Name) <> "liste" Then
.Cells(.Range("A" & Rows.Count).End(3).Row + 1, 1) = Sheets(Z).[a1].Value
.Cells(.Range("A" & Rows.Count).End(3).Row, 2) = Sheets(Z).[H5].Value
.Cells(.Range("A" & Rows.Count).End(3).Row, 3) = Sheets(Z).[J5].Value
.Cells(.Range("A" & Rows.Count).End(3).Row, 4) = Sheets(Z).[L4].Value
End If
Next
RE: Comboboxda Verileri Sıralamak - feraz - 14/05/2020
For Z = 2 To Sheets.Count burda 1 den başlayıp sayfa adı için şablon sayfasıda koşula eklenmesi gerekmiyor mu?
RE: Comboboxda Verileri Sıralamak - m_demir - 14/05/2020
Hocam bilmiyorum eklenmesi gerekiyorsa bir zahmet ekleyin. Sadece benim istediğim ŞABLON, liste ve Sayfa1 hiç bir listede görünmesin ve bu sayfalara kayıt etme, silme ve değiştirme gibi işlemler yapılmasın. Onları da zaten siz ayarlamıştınız. Mesaj 14 deki anlattığınız yapılması gereken bir işlem ise yapın. Saygılar.
Re: Comboboxda Verileri Sıralamak - feraz - 14/05/2020
For Z = 1 To Sheets.Count
If LCase(Sheets(Z).Name) <> "sayfa1" And LCase(Sheets(Z).Name) <> "liste" And LCase(Sheets(Z).Name) <> "şablon" ThenRE: Comboboxda Verileri Sıralamak - m_demir - 14/05/2020
Kod:
For Z = 1 To Sheets.CountKod:
If LCase(Sheets(Z).Name) <> "sayfa1" And LCase(Sheets(Z).Name) <> "liste" And LCase(Sheets(Z).Name) <> "şablon" ThenYoksa aşağıdaki kodu yukarıdaki kodun altına mi eklemem gerekiyor.
RE: Comboboxda Verileri Sıralamak - feraz - 14/05/2020
(14/05/2020, 18:25)m_demir yazdı: Yoksa aşağıdaki kodu yukarıdaki kodun altına mi eklemem gerekiyorEvet.