Lİsteden İŞaretledİklerİm Lİstelensİn

[gemiadami]

Selamlar örneğin uzunca bir liste içinden seçtiklerimi işaretleyip sonra onların bir liste halinde alt alta sıralı olmasını nasıl yapabilirim yada böyle bir hazır çalışma varmı? Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu bir butona bağlayın ve sonra A sütunundan fare ile ilgili hücreleri seçerek kodu çalıştırın. Seçtiğiniz ürünler B sütununa listelenecektir.

Sub listele()
[b:b].ClearContents
For Each hucre In Selection
c = c + 1
Cells(c, "b") = hucre
Next
End Sub

veya kısaca,

Sub listele()
[b:b].ClearContents
Selection.Copy [b1]
End Sub

 

[gemiadami]

sayın leventm excelde buton ve butona bağlama işleminin nasıl yapıldığını bir örnekle gösterirmisiniz.Teşekkürler.

 

[Seyit Tiken]

Ben olayı sanki farklı anladım. A sütunundaki verileri çift tıklayarak sonucunu gözlemleyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a1:a100]) Is Nothing Then Exit Sub
If [b1] = vbNullString Then
[b1] = ActiveCell.Value
Target.Offset(1).Select
Else
[b6500].End(3).Offset(1) = ActiveCell.Value
Target.Offset.Offset(1).Select
End If
End Sub

 

[gemiadami]

Sayın Seyit Tiken cevabınız için teşekkürler istediğim bu şekil bir şey fakat ben daha sonra seçilen ürünlerin karşısına miktar girip yazıcıdan çıktı almalıyım bunun içinde A sütünundakiler görükmemesi gerekir.Bunu nasıl yaparız.

sanırım makro ile yapıyorsunuz excel biraz biliyorum ama makro tamamen yabancı olduğum bir konu.Teşekkürler.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[gemiadami]

mesaj gönderen arkadaşlara bilgilerini paylaştıkları için teşekkür ediyorum.sizlerin yol göstermesi ile ek teki örnek tabloyu yaptım.ama bir sorun daha var yardım ederseniz sevinirim.

liste sütünundan(A sütunu) çift tıklama ile istediğimizi seçip talep listemizi(c sütunu) oluşturuyoruz buraya kadar tamam.fakat ben bir dahaki ay kumanya talebimde örneğin;9 sıra nolu bulguru vede aynı zamanda karşısındaki taleb edilen miktarı sildiğimde o hücreler boş görükmesin otomatikman alt hücredeki yukarı çıksın.şimdiden teşekkürler.

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[gemiadami]

Sayın, seyit tiken ekteki son excel sayfasını inceledim tam istediğim gibi teşekkür ederim.Yalnız sizden bir ricam daha var.

Yazıcıdan çıktı alındığı zaman 'liste' (A sütünü) hariç diğer 3 sütünün ve başlığın kağıtta görüntülenmesini pratik nasıl sağlarız?

Yani menü den dosya-yazdırma alanı belirle yapmadan.bahsettiğim bu 3 sütun ve A sütünü ayrı çalışma sayfalarında olabilirmi?

Yada tekbir çalışma sayfasında nasıl sağlarız .bu şekil daha iyi çünkü seçimimizi hemen görüyoruz.

Birde olursa mesala;şeker seçildiği zaman 'istenen sütününda yerini alsın karşısındaki taleb miktarı hücresinde PAKET yazsın.Et seçildiğinde ise KİLO,Reçelde KAVONOZ.

Başınızı ağrıttım ama şimdiden teşekkür ederim.

 

[Seyit Tiken]

Dosyayı inceleyiniz.

 

[gemiadami]

Sayın seyit tiken son gönderdiğiniz dosyayı inceledim fakat yazdır butonu işlev görmüyor.Yanlış birşeymi yapıyorum acaba.Teşekkürler.

 

[gemiadami]

Sayın seyit tiken son gönderdiğiniz dosyayı inceledim fakat yazdır butonu işlev görmüyor.Yanlış birşeymi yapıyorum acaba.Teşekkürler.

sayın seyit tiken tamam yazdır tuşuna makro atadım yazıcıdan çıktı aldım istediğim sütunlar görüntüleniyor.aşağıdaki sorum için bir başlangıç bana yaparsanız ben kodlarla oynayarak diğerleri için uygulayabilirim herhalde.

Birde olursa mesala;ŞEKER seçildiği zaman 'istenen' sütününda yerini alsın karşısındaki taleb miktarı hücresinde PAKET yazsın.Et seçildiğinde ise KİLO,Reçelde KAVONOZ.

 

[Seyit Tiken]

"Yazdır" butonu üzereni sağ tıklayın > çıkan pencereden Makro Ata'yı tıklayın > çıkan pencerede "Yazdır" makrosunu tıklayıp, tamam deyin.

 

[gemiadami]

"Yazdır" butonu üzereni sağ tıklayın > çıkan pencereden Makro Ata'yı tıklayın > çıkan pencerede "Yazdır" makrosunu tıklayıp, tamam deyin.

uyguladım teşekkür ederim çalışıyor.