Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 04-12-2017, 21:49   #1
sinan05
 
Giriş: 16/11/2017
Şehir: istanbul
Mesaj: 26
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan Başka sayfalardan veri almak.

iyi günler herkeze iyi çalışmalar.Rica etsem bir formülde yardım edebilirmisniz. Yapmak istediğim şey şu; çalışma kitabımda 1 ve 2 adlarını taşıyan iki sayfam var. 2.sayfada b1 sütununda tarihler c2 sütununda isimler var ve d,e,f,g.h sütunlarında da başka veriler var. şimdi 1. sayfanın a1 hücresine başlangıç a2 hücresinede bitiş tarihi giriyorum.bu iki hücre arasındaki tarihe uyan 2. sayfadaki b,c,d,e,f,g,h sütunlarındaki bilgiler 1.sayfada listelense olurmu.
örneğin 1. sayfada 01.01.2017-30.01.2017 tarihlerini yazdığımda 2.sayfadaki şu şekilde tasarladığım 30.01.2017 - ahmet demir - vs... diye devam eden hücreler 1.sayfada listelense. yardımcı olursanız çok sevinirim. herkese teşekkürler.
sinan05 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 04-12-2017, 22:18   #2
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,282
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
Ek dosyayı deneyiniz
http://s4.dosya.tc/server5/gse7sb/trh.zip.html
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-12-2017, 22:42   #3
sinan05
 
Giriş: 16/11/2017
Şehir: istanbul
Mesaj: 26
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan

Alıntı:
PLİNT tarafından gönderildi Mesajı Görüntüle



Hocam çok hızlısınız maşallah. süper olmuş tam istediğim gibi. ALLAH (C.C) Razı olsun çok çok teşekkürler.bişey rica etsem acaba sonraki ı,j,k sütunlarınıda ekleyebilirmisniz.birde nekadar veri girebilirim aşağı sınırsızmı devam ediyor.
sinan05 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 04-12-2017, 23:03   #4
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,282
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Alıntı:
sinan05 tarafından gönderildi Mesajı Görüntüle
Hocam çok hızlısınız maşallah. süper olmuş tam istediğim gibi. ALLAH (C.C) Razı olsun çok çok teşekkürler.bişey rica etsem acaba sonraki ı,j,k sütunlarınıda ekleyebilirmisniz.birde nekadar veri girebilirim aşağı sınırsızmı devam ediyor.
Teşekkür ederim, bilmukabele
Aşağıdaki mavi ve kırmızı değişikliklerle "I:K" aralığıda ekelenecektir.
Sınır yok ama döngü ile çalıştığı için 2. sayfada satır sayısı arttıkça verilerin gelme hızı yavaşlayacaktır, deneyin; aşırı satır varsa dizi ile yapmaya çalışırız.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" And Target.Address <> "$A$2" Then Exit Sub
Range("A3:J" & Rows.Count).ClearContents
If IsDate([A1].Value) = False Then MsgBox "  İLK TARİHİ GİRİNİZ !  ": Exit Sub
If IsDate([A2].Value) = False Then MsgBox "  SON TARİHİ GİRİNİZ !  ": Exit Sub
With Sheets("Sayfa2")
s = 3
X = .Cells(Rows.Count, "B").End(3).Row
tar1 = CDate([A1])
tar2 = CDate([A2])
If CDbl(CDate(tar1)) > CDbl(CDate(tar2)) Then MsgBox "İLK TARİH SON TARİHTEN BÜYÜK OLAMAZ !": Exit Sub
For i = 2 To X
tarih = CDate(.Cells(i, 2))
If tarih >= tar1 And tarih <= tar2 Then
s = s + 1
Range("A" & s & ":J" & s).Value = .Range("B" & i & ":K" & i).Value
End If
Next
End With
End Sub 
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-12-2017, 23:13   #5
sinan05
 
Giriş: 16/11/2017
Şehir: istanbul
Mesaj: 26
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan

Alıntı:
PLİNT tarafından gönderildi Mesajı Görüntüle
Teşekkür ederim, bilmukabele
Aşağıdaki mavi ve kırmızı değişikliklerle "I:K" aralığıda ekelenecektir.
Sınır yok ama döngü ile çalıştığı için 2. sayfada satır sayısı arttıkça verilerin gelme hızı yavaşlayacaktır, deneyin; aşırı satır varsa dizi ile yapmaya çalışırız.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" And Target.Address <> "$A$2" Then Exit Sub
Range("A3:J" & Rows.Count).ClearContents
If IsDate([A1].Value) = False Then MsgBox "  İLK TARİHİ GİRİNİZ !  ": Exit Sub
If IsDate([A2].Value) = False Then MsgBox "  SON TARİHİ GİRİNİZ !  ": Exit Sub
With Sheets("Sayfa2")
s = 3
X = .Cells(Rows.Count, "B").End(3).Row
tar1 = CDate([A1])
tar2 = CDate([A2])
If CDbl(CDate(tar1)) > CDbl(CDate(tar2)) Then MsgBox "İLK TARİH SON TARİHTEN BÜYÜK OLAMAZ !": Exit Sub
For i = 2 To X
tarih = CDate(.Cells(i, 2))
If tarih >= tar1 And tarih <= tar2 Then
s = s + 1
Range("A" & s & ":J" & s).Value = .Range("B" & i & ":K" & i).Value
End If
Next
End With
End Sub 



hocam tekrar tekrar sağolun. çok işime yardı. eksik olmayın çok teşekkür ederim. hayırlı geceler.
sinan05 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 04-12-2017, 23:51   #6
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,282
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Alıntı:
sinan05 tarafından gönderildi Mesajı Görüntüle
hocam tekrar tekrar sağolun. çok işime yardı. eksik olmayın çok teşekkür ederim. hayırlı geceler.
Rica ederim, kolay gelsin.
Aşağıdaki örnek dizi ile yapılmış daha hızlı alternatifi:
http://s8.dosya.tc/server5/gugo7x/trh2.zip.html
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" And Target.Address <> "$A$2" Then Exit Sub
Range("A3:J" & Rows.Count).ClearContents
If IsDate([A1].Text) = False Then MsgBox "  İLK TARİHİ GİRİNİZ !  ": Exit Sub
If IsDate([A2].Text) = False Then MsgBox "  SON TARİHİ GİRİNİZ !  ": Exit Sub
With Sheets("Sayfa2")
s = 0
x = .Cells(Rows.Count, "B").End(3).Row
tar1 = CDate([A1])
tar2 = CDate([A2])
If CDbl(CDate(tar1)) > CDbl(CDate(tar2)) Then MsgBox "İLK TARİH SON TARİHTEN BÜYÜK OLAMAZ !": Exit Sub
Dim lis(): Dim syf()
syf = .Range("B1:K" & x).Value
ReDim lis(1 To 10, 1 To x)
For i = 2 To x
If IsEmpty(syf(i, 1)) = False And IsDate(syf(i, 1)) = True Then
tarih = CDate(syf(i, 1))
If tarih >= tar1 And tarih <= tar2 Then
s = s + 1
For m = 1 To 10
lis(m, s) = syf(i, m)
Next
End If
End If
Next
End With
If s > 0 Then Cells(3, 1).Resize(x, 10) = Application.Transpose(lis)
End Sub
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-12-2017, 07:49   #7
sinan05
 
Giriş: 16/11/2017
Şehir: istanbul
Mesaj: 26
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan

Alıntı:
PLİNT tarafından gönderildi Mesajı Görüntüle
Rica ederim, kolay gelsin.
Aşağıdaki örnek dizi ile yapılmış daha hızlı alternatifi:
http://s8.dosya.tc/server5/gugo7x/trh2.zip.html
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" And Target.Address <> "$A$2" Then Exit Sub
Range("A3:J" & Rows.Count).ClearContents
If IsDate([A1].Text) = False Then MsgBox "  İLK TARİHİ GİRİNİZ !  ": Exit Sub
If IsDate([A2].Text) = False Then MsgBox "  SON TARİHİ GİRİNİZ !  ": Exit Sub
With Sheets("Sayfa2")
s = 0
x = .Cells(Rows.Count, "B").End(3).Row
tar1 = CDate([A1])
tar2 = CDate([A2])
If CDbl(CDate(tar1)) > CDbl(CDate(tar2)) Then MsgBox "İLK TARİH SON TARİHTEN BÜYÜK OLAMAZ !": Exit Sub
Dim lis(): Dim syf()
syf = .Range("B1:K" & x).Value
ReDim lis(1 To 10, 1 To x)
For i = 2 To x
If IsEmpty(syf(i, 1)) = False And IsDate(syf(i, 1)) = True Then
tarih = CDate(syf(i, 1))
If tarih >= tar1 And tarih <= tar2 Then
s = s + 1
For m = 1 To 10
lis(m, s) = syf(i, m)
Next
End If
End If
Next
End With
If s > 0 Then Cells(3, 1).Resize(x, 10) = Application.Transpose(lis)
End Sub


Vay canına süpersiniz hocam zahmet verdim.ne güzel süpriz oldu benim için. Çok sağolun elleriniz dert görmesin. Çok makbule geçti. Nekadar teşekkür etsem azdır. Tekrar sağolun.
sinan05 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 06-12-2017, 10:01   #8
sinan05
 
Giriş: 16/11/2017
Şehir: istanbul
Mesaj: 26
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan

Alıntı:
sinan05 tarafından gönderildi Mesajı Görüntüle
Vay canına süpersiniz hocam zahmet verdim.ne güzel süpriz oldu benim için. Çok sağolun elleriniz dert görmesin. Çok makbule geçti. Nekadar teşekkür etsem azdır. Tekrar sağolun.

Hocam merhabalar. Rahatsız etmezsem ve uygunsa bir yardım isteyebilirmiyim. altta belirtmiş olduğum kodu makro kaydet diye oluşturdum.şimdi makronun yapmasını istediğim şey örnek taslak sayfasını kopyalasın müşteri kayıt sayfasındaki seçili kısmı yeni kopyaladığı sayfaya yapıştırsın ve yeni sayfanın isminide sayfanın kendi içindeki B3 hücresini versin. herşeyi yapıyor ama altı çizili kısımda hata veriyor sayfayı isimlendiremiyor. tabi ben altı çizili kısmı değiştirdim. yardımcı olabilirseniz çok sevinirim.

Sub Makro1()
'
' Makro1 Makro
'

'
Range("F12").Select
Sheets("ÖRNEK TASLAK").Select
Sheets("ÖRNEK TASLAK").Copy After:=Sheets(6)
Sheets("müşteri kayıt").Select
Range("A1:E23").Select
Selection.Copy
Sheets("ÖRNEK TASLAK (2)").Select
Range("A1:B2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ÖRNEK TASLAK (2)").Select
Sheets("ÖRNEK TASLAK (2)")S.Name = Sheets ("B1").
Range("C24").Select
Sheets("müşteri kayıt").Select
End Sub
sinan05 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 06-12-2017, 10:26   #9
sinan05
 
Giriş: 16/11/2017
Şehir: istanbul
Mesaj: 26
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan

Alıntı:
PLİNT tarafından gönderildi Mesajı Görüntüle
Rica ederim, kolay gelsin.
Aşağıdaki örnek dizi ile yapılmış daha hızlı alternatifi:
http://s8.dosya.tc/server5/gugo7x/trh2.zip.html
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" And Target.Address <> "$A$2" Then Exit Sub
Range("A3:J" & Rows.Count).ClearContents
If IsDate([A1].Text) = False Then MsgBox "  İLK TARİHİ GİRİNİZ !  ": Exit Sub
If IsDate([A2].Text) = False Then MsgBox "  SON TARİHİ GİRİNİZ !  ": Exit Sub
With Sheets("Sayfa2")
s = 0
x = .Cells(Rows.Count, "B").End(3).Row
tar1 = CDate([A1])
tar2 = CDate([A2])
If CDbl(CDate(tar1)) > CDbl(CDate(tar2)) Then MsgBox "İLK TARİH SON TARİHTEN BÜYÜK OLAMAZ !": Exit Sub
Dim lis(): Dim syf()
syf = .Range("B1:K" & x).Value
ReDim lis(1 To 10, 1 To x)
For i = 2 To x
If IsEmpty(syf(i, 1)) = False And IsDate(syf(i, 1)) = True Then
tarih = CDate(syf(i, 1))
If tarih >= tar1 And tarih <= tar2 Then
s = s + 1
For m = 1 To 10
lis(m, s) = syf(i, m)
Next
End If
End If
Next
End With
If s > 0 Then Cells(3, 1).Resize(x, 10) = Application.Transpose(lis)
End Sub





Hocam merhabalar. Rahatsız etmezsem ve uygunsa bir yardım isteyebilirmiyim. altta belirtmiş olduğum kodu makro kaydet diye oluşturdum.şimdi makronun yapmasını istediğim şey örnek taslak sayfasını kopyalasın müşteri kayıt sayfasındaki seçili kısmı yeni kopyaladığı sayfaya yapıştırsın ve yeni sayfanın isminide sayfanın kendi içindeki B3 hücresini versin. herşeyi yapıyor ama altı çizili kısımda hata veriyor sayfayı isimlendiremiyor. tabi ben altı çizili kısmı değiştirdim. yardımcı olabilirseniz çok sevinirim.

Sub Makro1()
'
' Makro1 Makro
'

'
Range("F12").Select
Sheets("ÖRNEK TASLAK").Select
Sheets("ÖRNEK TASLAK").Copy After:=Sheets(6)
Sheets("müşteri kayıt").Select
Range("A1:E23").Select
Selection.Copy
Sheets("ÖRNEK TASLAK (2)").Select
Range("A1:B2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ÖRNEK TASLAK (2)").Select
Sheets("ÖRNEK TASLAK (2)")S.Name = Sheets ("B1").
Range("C24").Select
Sheets("müşteri kayıt").Select
End Sub
sinan05 Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 18:10


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden