bir sayfadan diğer sayfaya veri cekmek

[mahmutozdemir]

Slm,grup sayfasından tabloya veri cekmek istiyorum.Teşekkürler..Ekde bir dosya var.

 

[halit3]

Slm,grup sayfasından tabloya veri cekmek istiyorum.Teşekkürler..Ekde bir dosya var.

kod

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("c8")) Is Nothing Then Exit Sub
bul
End Sub
Sub bul()
ad = Worksheets("TABLO").Cells(8, 3).Value
If ad = "" Then
Exit Sub
End If
Set d = Worksheets("GRUP").Range("A:A").Find(ad, LookAt:=xlWhole)
If Not d Is Nothing Then
FirstAddress = d.Address
Do
sat = 9
For j = d.Row + 1 To d.Row + 14
Worksheets("TABLO").Cells(sat, 3).Value = Worksheets("GRUP").Cells(j, 1)
Worksheets("TABLO").Cells(sat, 4).Value = Worksheets("GRUP").Cells(j, 2)
Worksheets("TABLO").Cells(sat, 5).Value = Worksheets("GRUP").Cells(j, 3)
Worksheets("TABLO").Cells(sat, 6).Value = Worksheets("GRUP").Cells(j, 4)
sat = sat + 1
Next j
Set d = Worksheets("GRUP").Range("A:A").FindNext(d)
Loop While Not d Is Nothing And d.Address <> FirstAddress
End If
End Sub

 

[Merhum İdris SERDAR]

Slm,grup sayfasından tabloya veri cekmek istiyorum.Teşekkürler..Ekde bir dosya var.

.

Dosyanız ekte.

.

 

[assenucler]

Sayın halit3 ve yurttas;


Merhabalar ve iyi haftalar..

Emek ve katkılarınız için kendi adıma teşekkürler.

Sevgi ve saygılar.

 

[mahmutozdemir]

Sayın yurttaş teşekkür ederim bunu yaparken nasıl yaptınız kısaca anlatırmısınız

 

[Merhum İdris SERDAR]

Sayın yurttaş teşekkür ederim bunu yaparken nasıl yaptınız kısaca anlatırmısınız

.

Veri Doğrulama ile yapıldı. Konu için bakınz:

http://www.excel.web.tr/f60/ver-do-rulama-data-validation-t2830.html

Ad tanımlama yapıldı. Konu için Bakınız:

Excel'de alan adları ve uygulamaları

Alan seçilerek formül dizi formül şeklinde girildi.

.

 

[mahmutozdemir]

Slm formul dizi formul şeklide bu konuyuda yapabilirmiyiz.

 

[Merhum İdris SERDAR]

Slm formul dizi formul şeklide bu konuyuda yapabilirmiyiz.

.

Öğretmen misiniz?

Eğer öyleyse, yukarıda yazdığınız cümle size ait değildir...

Dosyanız ekte.

Konu için bakınız:

http://www.excel.web.tr/f60/zet-tablolar-p-vot-table-t3036.html

Ayrıca buraya da bakınız:

http://www.excel.web.tr/f60/zet-tablolar-p-vot-table-t3036.html


.

 

[İhsan Tank]

Slm formul dizi formul şeklide bu konuyuda yapabilirmiyiz.

Merhaba
C5 hücresine

=EĞER(SATIRSAY(C$5:C5)>EĞERSAY(veriler!$D$2:$D$1000;$C$3);"";İNDİS(
veriler!A$2:A$1000;KÜÇÜK(EĞER(veriler!$D$2:$D$1000=$C$3;SATIR(
veriler!$D$2:$D$1000)-SATIR(veriler!$D$2)+1);SATIRSAY(C$5:C5))))

D5 hücresine

=EĞER(SATIRSAY(C$5:C5)>EĞERSAY(veriler!$D$2:$D$1000;$C$3);"";İNDİS(
veriler!B$2:B$1000;KÜÇÜK(EĞER(veriler!$D$2:$D$1000=$C$3;SATIR(
veriler!$D$2:$D$1000)-SATIR(veriler!$D$2)+1);SATIRSAY(C$5:C5))))

E5 hücresine

=EĞER(SATIRSAY(C$5:C5)>EĞERSAY(veriler!$D$2:$D$1000;$C$3);"";İNDİS(
veriler!E$2:E$1000;KÜÇÜK(EĞER(veriler!$D$2:$D$1000=$C$3;SATIR(
veriler!$D$2:$D$1000)-SATIR(veriler!$D$2)+1);SATIRSAY(C$5:C5))))

Bu formülleri yazın diziye çevirin ve aşağıya doğru çoğaltın.

 

[mahmutozdemir]

teşekkür ederim.

 

[İhsan Tank]

teşekkür ederim.

Rica ederim
:keyif:

 

[mahmutozdemir]

formül dizi formül oluşturmak için belli bir alan mı seçip enter+sift+ctrl tuşunamı basmamız mı gerekiyor.Ben aynısını yapmaya calışıyorum bir yerde eksik yapıyorum örnek dosyadaki gibi. Birde formül dizi formülü nasıl kaldıra bilirim.