sayfalara aktar makrosunda değişiklik yapmak istiyorum

[Erdinç FIRTINA]

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!!!

 

[Merhum İdris SERDAR]

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!!!

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.

..

 

[qwertylion]

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]

üstatlar hadi bi el atın!!!

 

[qwertylion]

yardım lütfeen

 

[Merhum İdris SERDAR]

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

Dosyanız ekte.

.

 

[qwertylion]

allah razı olsun üstat çok makbule geçti

 

[Erdinç FIRTINA]

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!!!

 

[Merhum İdris SERDAR]

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!!!

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



.

 

[Erdinç FIRTINA]

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!!!

 

[Merhum İdris SERDAR]

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!!!

Dosyanız ekte.

.

 

[arifcell]

Merhaba

SAYIN ERDINC BEY
EKTEKI DOSYADA ISTEDIGINIZ ISLEMI YAPTIM.
UMRAIM ISINIZ YARAR
SAYGILARIMLA

ARIF ALTINTAŞ
arifcell@hotmail.com

 

[tahsinanarat]

Birde bunu denermisiniz

Dosyanız ektedir. Kolay gelsin

 

[Erdinç FIRTINA]

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!!!

 

[kadet]

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.

 

[ckarapur]

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.?

 

[ckarapur]

yok mu acaba nasıl yapabileceğimi söyleyecek birisi? biraz acil de...

 

[ckarapur]

güncelleme...