combobox ile veri aktar

[aslan1969]

comboboxtan seçilen firma'nın verilerini aktar

selamlar
mevcut aktar kodlarını
comboboxa bağlayabilirmiyiz
saygılar

 

[aslan1969]

selamlar
forumdan bulduğum kodları sayfama uyarladım
makro (Worksheet_BeforeDoubleClick) ile sayfayı aktarıyor
bunu userforma nasıl bağlıyabilirim
saygılar

 

[aslan1969]

selamlar
örnek dosyayı sadeleştirerek yeniden ekliyorum
userform üzerindeki comboboxtan seçilen firmanın verileri aktarmasını nasıl sağlayabiliriz
saygılar

 

[programer]

ComboBoxta Seçtiğiniz verileri seçilen sayfaya aktarmak istiyorsanız Kaydet butonunun başına Sheets(ComboBox1.Text).Select komutunu ekleyin.

 

[aslan1969]

selamlar
sanırım yapamadım
örnek dosyayı yeniden ekliyorum
saygılar

 

[aslan1969]

selamlar
tek yapmak istediğim
aktar makrosunu userforma bağlamak çok deneme yaptım olmadı
comboboxtan firmayı seçince aktarmak
saygılar

 

[Skorpiyon]

Sayın aslan1969.

Hangi sayfadaki veriyi, hangi sayfaya aktarmak istiyorsunuz ?

Saygılarımla...

 

[aslan1969]

selamlar
giriş sayfasındaki d sütunundaki firmalardan birine çift tıklayınca giriş sayfasındaki a sütunundan başlayarak yer alan firma bilgilerini mevcut yada yeni sayfaya altalta aktarıyor bunu işlemi forma bağlıyabilirmiyiz
(yani cari hesap dökümü oluşturuyor)
saygılar

 

[aslan1969]

selamlar
aslında çok zor olmadığını düşünüyorum sanırım ben pek anlatamadım
dosyada açıklaması var
saygılar

 

[Skorpiyon]

Sayın aslan1969,

Sizin verileriniz ne kadar bilmiyorum ama, seçilen veri ilgili sayfaya aktarılsın demişsiniz. Yani her veri için 1 sayfa oluşturulacak. Ve sizin veriniz 256 'yı geçerse (Excelde max.256 sayfa açılabilir) bu problem çıkartır.

Bunun yerine veriler her seferinde aynı sayfaya aktarılan aşağıdaki yönteme bir bakın.

Dilerim işinizi görür.

Saygılarımla...

 

[aslan1969]

sn. sertkaya
örneğiniz için çok teşekkür ederim
mantığıda çok doğru
bu formülleri kodun neresine yerleştirmek gerek
s2.Range("O2").Formula = "=SUM(O3:O500)"
s2.Range("P2").Formula = "=SUM(P3500)"
s2.Range("Q2").Formula = "=SUM(Q3:Q500)"
s2.Range("R4:R500").Formula = "=(P4-Q4)+R3"
s2.Range("R2").Formula = "=P2-Q2"
s2.Range("R1") = "SON DURUM"
s2.Range("H2") = "TOPLAM"
toplamlar alıp cari extre olarak kullanmak için
saygılar

 

[Skorpiyon]

Sayın aslan1969,

Anladığım kadarıyla bu mevcut programınızın sadece bir bölümü.

Eğer siz veriler aktarıldıktan sonra bu işlem yapılacak diyorsanız, mevcut sayfada veri olduğundan sizin yukarıda belirtmiş olduğunuz adresler onların üzerine yazılmaya çalışacak ve hata verecektir. (O2, P2, Q2 gibi hücreler)

Sizin yazdığınız kodları adapte etmek şu an mümkün değildir.

Yok eğer bu benim programımın tamamıdır diyorsanız, toplam aldırmak istediğiniz alanları doğru tespit etmek durumundasınız.

Saygılarımla...

 

[Skorpiyon]

Sayın aslan1969,

Özür dileyerek, galiba eksik anladım. İftar sonrası yardım için birşeyler yapmaya çalışırım.

Saygılarımla...

 

[Skorpiyon]

Sayın aslan1969,

Ek'li dosyayı inceleyiniz.

Bana göre formülünüzde bir hata var gibi. Ben yine de sizin istediğiniz şekilde düzenledim.

Saygılarımla...

 

[aslan1969]

sn. sertkaya
çok teşekkür ederim
koddaki eksikliği biliyorum
şimdi birkaç düzeltme yapmaya çalışıcağım
benim sorunum koda adapte edememekti
(henüz makro mantığını kuramıyorum)
şimdilik mevcut kodları kısmen uyarlıyabiliyorum
tek sayfaya firma bilgilerini aktarmak çok akıllıcaydı
ama birde ilk sorduğum
yani çift tıklama ile olan kodu formdan çalıştırabilirmiyiz
(firma sayım maksimum 70)
çok teşekkür ederm
saygılarımla

KOD
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If ActiveCell.Row = 1 Then Exit Sub
Sayfa_Adi = Cells(ActiveCell.Row, "D")
If Sayfa_Adi = "" Then Exit Sub
Var = 0
adet = 0
For i = 2 To Worksheets.Count
If Sheets(i).Name = Sayfa_Adi Then
Var = 1
Exit For
End If
Next

If Var = 0 Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sayfa_Adi
End If

Sheets("Sayfa1").Select
If Var = 0 Then i = Worksheets.Count
Set s2 = Sheets(i)
s2.Unprotect
s2.Cells.ClearContents
Q = 2
Range("A1:Q1").Copy s2.[A1]

For i = 2 To [D65536].End(3).Row
If Cells(i, "D") = Sayfa_Adi Then
Q = Q + 1
adet = adet + 1
s2.Cells(Q, "A") = Cells(i, "A")
s2.Cells(Q, "B") = Cells(i, "B")
s2.Cells(Q, "C") = Cells(i, "C")
s2.Cells(Q, "D") = Cells(i, "D")
s2.Cells(Q, "E") = Cells(i, "E")
s2.Cells(Q, "F") = Cells(i, "F")
s2.Cells(Q, "G") = Cells(i, "G")
s2.Cells(Q, "H") = Cells(i, "H")
s2.Cells(Q, "I") = Cells(i, "I")
s2.Cells(Q, "J") = Cells(i, "J")
s2.Cells(Q, "K") = Cells(i, "K")
s2.Cells(Q, "L") = Cells(i, "L")
s2.Cells(Q, "M") = Cells(i, "M")
s2.Cells(Q, "N") = Cells(i, "N")
s2.Cells(Q, "O") = Cells(i, "O")
s2.Cells(Q, "P") = Cells(i, "P")
s2.Cells(Q, "Q") = Cells(i, "Q")
End If
Next
s2.Range("O2").Formula = "=SUM(O3:O500)"
s2.Range("P2").Formula = "=SUM(P3500)"
s2.Range("Q2").Formula = "=SUM(Q3:Q500)"
s2.Range("R4:R500").Formula = "=(P4-Q4)+R3"
s2.Range("R2").Formula = "=P2-Q2"
s2.Range("R1") = "SON DURUM"
s2.Range("H2") = "TOPLAM"
If adet > 0 Then
MsgBox Sayfa_Adi & " Sayfasına " & adet & " Adet Kayıt Aktarılmıştır"
End If
End Sub

 

[Skorpiyon]

Sayın aslan1969,

Şahsen burdaki sorununuzu tam olarak anlayamadım.

-Eğer formu çift tıklama ile çalıştırmak istiyorsanız 1.örneği;

-Eğer Excel sayfasında herhangi bir hücreye çift tıklayarak aktarma yapmak istiyorsanız 2. örneği inceleyiniz. (GİRİŞ sayfasındaki D sütununda bulunan firma isimlerine tıklamalasınız.)

Saygılarımla...