• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Combobox ta arama

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
J

jerfinby

Yeni Üye
Katılım
20 Nis 2021
Mesajlar
26
Aldığı beğeni
5
Excel V
Office 2016 TR
Konu Sahibi
Sevgili üstadlar kolay gelsin
Excelde hazırlamış olduğum bir çalışma kitabında kayıtlar sayfasında b sütünunda arama yapıp bulduğum veriler listboxta gösterilsin ve bu verileri sayfa5 e kopyalasın istiyorum.
Bu konuda yardımlarınızı bekliyorum. Şimdiden teşekkürler
Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.


Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.
İ_DENEME.zip.html


HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Merhaba,

İstediğiniz böyle bir şey mi? İyi günler.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
böyle bir makro var elimde fakat sayfa5'e 1 satırdan kopyalıyor ben 2. satırdan kopyalamasını istiyorum.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Selam hocalarım listbox'taki verileri sayfa5e kopyalıyorum, fakat 1.satırdan kopyalamaya başlıyor ben ise 2. satırdan kopyalamaya başlamasını istiyorum. Bu konuda yardımlarınızı bekliyorum.


Private Sub CommandButton1_Click()

Dim s1 As Worksheet
Sheets("Sayfa5").Range("A2:G2").ClearContents
If ListBox1.ListCount = 0 Then
MsgBox "Kopyalanacak Veri Yok.", vbCritical, ""
Exit Sub
End If

Set s1 = Sheets("Sayfa5")
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount

s1.Range(s1.Cells(1, 1), s1.Cells(sat, sut)) = ListBox1.List
MsgBox "Seçilen Veriler Kopyalandı.", vbApplicationModal, ""
Set s1 = Nothing
Unload Me

End Sub
 
Olumlu oy 0 Negatif oyla
Merhaba

Satırı bu şekilde değiştirip, dener misiniz?

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

İstediğiniz bu değilse, dosyanızı paylaşınız kontrol edelim..
 
Olumlu oy 0 Negatif oyla
Konu Sahibi

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Dosyanızı inceledim. Neden 2. satırdan kopyalamak istiyorsunuz? Başlık satırı mı ekleyeceksiniz?
 
Olumlu oy 0 Negatif oyla

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst