• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

sayfalara aktar makrosunda değişiklik yapmak istiyorum

E

Erdinç FIRTINA

Altın Üye
Katılım
14 Şubat 2007
Mesajlar
400
Excel Vers. ve Dili
excel 2003 türkçe
sevgili forum üyeleri,
sayfalara dağıt makrosu ile yeni sayfa oluşturularak dağıtılan verileri daha sonra açılmış olan aynı sayfalara aktarmak istediğimizde sayfadaki diğer verilerin silinmesini istemiyorum makro kodunda ne gibi bir değişiklik yapmalıyım?
ayrıca sütun ilavesini nasıl yapabilirim?
Makroların açıklaması olursa çok sevinirim.

Formdan yararlandığım dosya ektedir yardımlarınız için şimdiden teşekkürler!!!
 
sefkatim' Alıntı:
sevgili forum üyeleri,
sayfalara dağıt makrosu ile yeni sayfa oluşturularak dağıtılan verileri daha sonra açılmış olan aynı sayfalara aktarmak istediğimizde sayfadaki diğer verilerin silinmesini istemiyorum makro kodunda ne gibi bir değişiklik yapmalıyım?
ayrıca sütun ilavesini nasıl yapabilirim?
Makroların açıklaması olursa çok sevinirim.

Formdan yararlandığım dosya ektedir yardımlarınız için şimdiden teşekkürler!!!
Genişletmek için tıkla ...

Dosyanız ekte.

Daha önce var olan kodd a birkaç değişiklik ve ilave ile hazırlanmıştır.

Kodların izlediği mantık:

1. Önce sayfaları küçükten büyüğe sayfada sıralar.
2. Daha önce açılmış sayfalar varsa siler.
3. Verileri yeni sayfalar açarak ve sayfada yer alan girilen yeni bilgilere göre dağıtır.
4.Sayfayı eski sıralamasına getirir.

..
 
merhaba arkadaşlar ;
üstatlar tarafından daha önce yapılan dağıt makrosunu kendime uyarlamaya çalıştım ama bazı sorunlarla karşılaştım bu konuda yardımlarınızı rica ediyorum.
1-ben dağıt işlemini c sütununa göre yapmak istedidiğimden s1.Columns("B:B").Copy _ satırındaki "B" leri "C" yapıyorum sayfa altında kulakçıklarda c ye göre isim açıyor ancak kopyalama işlemini yapmıyor.

2- ad tanımla işlemiyle kopyalama işlemini genişletmek istiyorum elimdeki veriler N sütununa kadar kopyalama yapdığı zaman gsütununa kadar doğru kopyalıyor ancak h.ı.j sütunlarını mükerrer kopyalayıp geri kalanını kopyalamıyor

işimi çok kolaylaştıracak yardımlarınızı bekliyorum teşekkürler
 
qwertylion' Alıntı:
merhaba arkadaşlar ;
üstatlar tarafından daha önce yapılan dağıt makrosunu kendime uyarlamaya çalıştım ama bazı sorunlarla karşılaştım bu konuda yardımlarınızı rica ediyorum.
1-ben dağıt işlemini c sütununa göre yapmak istedidiğimden s1.Columns("B:B").Copy _ satırındaki "B" leri "C" yapıyorum sayfa altında kulakçıklarda c ye göre isim açıyor ancak kopyalama işlemini yapmıyor.

2- ad tanımla işlemiyle kopyalama işlemini genişletmek istiyorum elimdeki veriler N sütununa kadar kopyalama yapdığı zaman gsütununa kadar doğru kopyalıyor ancak h.ı.j sütunlarını mükerrer kopyalayıp geri kalanını kopyalamıyor

işimi çok kolaylaştıracak yardımlarınızı bekliyorum teşekkürler
Genişletmek için tıkla ...

Dosyanız ekte.

.
 
Sayın YURTTAŞ,
Yardımlarınız için çok teşekkür ederim. Ancak, sayfa sayısını ve aktarılacak aynı sayfaya aitt verileri arttırdığımda aktarma işlemi yapılamıyor.
Örneğin; 150 sayfaya aktarma yapıldığını düşünelim ve 145. sayfada 30 tane satır olsun. Bu durumda aktarma yapılamıyor.

Yardımlarınız için şimdiden teşekkürler!!!
 
Erdinç FIRTINA' Alıntı:
Sayın YURTTAŞ,
Yardımlarınız için çok teşekkür ederim. Ancak, sayfa sayısını ve aktarılacak aynı sayfaya aitt verileri arttırdığımda aktarma işlemi yapılamıyor.
Örneğin; 150 sayfaya aktarma yapıldığını düşünelim ve 145. sayfada 30 tane satır olsun. Bu durumda aktarma yapılamıyor.

Yardımlarınız için şimdiden teşekkürler!!!
Genişletmek için tıkla ...

Aşağıdaki kodları deneyin.

Sub DAGIT()
Dim s1 As Worksheet
Dim sY As Worksheet
Dim ALAN As Range
Dim r As Integer
Dim c As Range
Set s1 = Sheets("VERİ")
Set ALAN = Range("VERİTABANI")
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name <> "VERİ" Then ws.Delete
Next
Application.DisplayAlerts = True


Range("A1:n65000").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal


s1.Columns("B:B").Copy _
Destination:=Range("Z1")
s1.Columns("Z:Z").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Range("X1"), Unique:=True
r = Cells(Rows.Count, "X").End(xlUp).Row


Range("Z1").Value = Range("B1").Value

For Each c In Range("X2:X" & r)

s1.Range("Z2").Value = c.Value

If SAYFA(c.Value) Then
Sheets(c.Value).Cells.Clear
ALAN.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("VERİ").Range("Z1:Z2"), _
CopyToRange:=Sheets(c.Value).Range("A1"), _
Unique:=False
Else
Set sY = Sheets.Add
sY.Move After:=Worksheets(Worksheets.Count)
sY.Name = c.Value
ALAN.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("VERİ").Range("Z1:Z2"), _
CopyToRange:=sY.Range("A1"), _
Unique:=False
End If
Next
s1.Select
s1.Columns("X:Z").Delete

Range("A1").Select
Range("A1:n65000").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Function SAYFA(SAYFAADI As String) As Boolean
On Error Resume Next
SAYFA = CBool(Len(Worksheets(SAYFAADI).Name) > 0)
End Function



.
 
Sayfalara aktar

Sayın YURTTAŞ,
Sizi çok yormak istemiyorum ama ekli dosyamı incelerseniz, son sayfadaki verilerin tamamını almasına rağmen öncesindeki verileri aktarmıyor.

Yardımlarınız için şimdiden çok teşekkürler!!!
 
Say&#305;n Yurtta&#351;, Say&#305;n arifcell ve Say&#305;n tahsinanarat,
Hepinize &#231;ok te&#351;ekk&#252;r ederim. Elinize, beyninize ve de y&#252;re&#287;inize sa&#287;l&#305;k!!!
 
herkeze iyi g&#252;nler.
ben kodlar&#305; ba&#351;ka bilgisayara elle yazarak girdim.
ilk ba&#351;taki
Set s1 = Sheets("VER&#304;") k&#305;sm&#305;nda hata veriyor.notfailet diyor.
bilgisayarda xp2 ve ofis2003 ingilizce versiyonlar&#305; kurulu acba sebep bu olabilirmi.
 
selamlar..

benim sorunum şöyle...

ilk önce gerekli bilgileri girdikten sonra aktarırken ikinci ve üçüncü sayfalara daha önce girmiş olduklarımı tekrar aktarıyor. Bunu nasıl çözebilrim.?
 

Ekli dosyalar

yok mu acaba nasıl yapabileceğimi söyleyecek birisi? biraz acil de...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst