Çoklu sayfalar ile çalışma

[stres]

Fazla bir şeyler talep ettiğim hissine kapılarak çekinerek yazıyorum.Ama daha önceki sorularına verilen cevapları gördükçede azda olsa cesaretlenmiyor değilim ve öğrenmemek ayıp diyerek kızarmış elma gibi olup yazıyorum ekteki çalışmaya bir bakın şimdiden yardımlarınız için teşekkürler

 

[Orion1]

Merhaba.
Ödeme emri sayfasında AKTAR butonuna basıyorsunuz.
Ekli dosyayı incelyiniz.

Sub AKTAR()
Dim d As Worksheet
Set d = Sheets("255demirbaş")
Sheets("ÖDEME EMRİ").Select
If Range("K5").Value = "" Then
    MsgBox "Tarih girmelisiniz.", vbCritical
    Range("K5").Select
    Exit Sub
End If
If MsgBox("ÖDEME EMRİNİ AKTARMAK İSTİYORMUSUNUZ ?", vbYesNo, Application.UserName) = vbNo Then Exit Sub
For i = 13 To 22
If Cells(i, "C").Value <> "" Then
sat = d.Cells(65536, "B").End(xlUp).Row + 1
d.Range("B" & sat).Value = Range("K5").Value
d.Range("C" & sat).Value = Range("P4").Value
d.Range("D" & sat).Value = Range("N9").Value
d.Range("E" & sat).Value = Range("O34").Value
For k = 6 To 13
MsgBox Cells(i, "C").Value & vbLf & d.Cells(9, k).Value
    If Cells(i, "C").Value = d.Cells(9, k).Value Then
        d.Cells(sat, k).Value = Cells(i, "O").Value
        Exit For
    End If
Next k
End If
Next i
MsgBox "AKTARMA İŞLEMİ TAMAMLANDI..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[stres]

çok teşekkür ederim orion
ama sanırım benim eksik verdiğim bilgiden dolayı çalışma biraz eksik gibi yeni dosyayı açıklamalarla ekte tekrar gönderiyorum allah kolaylık versin

 

[AS3434]

Sayın stres

Yarı formül yarı makro ile yapılmış dosyayı inceleyin. Umarım doğrudur.

740 sayfasında hata vardı giderildi....
Dosyayı yeniledim.

 

[stres]

Sayın stres

Yarı formül yarı makro ile yapılmış dosyayı inceleyin. Umarım doğrudur.

740 sayfasında hata vardı giderildi....
Dosyayı yeniledim.

evet ama ekte göndereyim dikkat edersen yine bazı eksiklikler var orda açıkladım
özellikle parasal tutar yerine toplam miktar atılırsa sıkıntı kalmayacak
kolay gelsin

 

[stres]

ha unutmadan birde 740 kırkın alt kalemleri yaklaşık 27 adet

 

[AS3434]

1. sanırım 740 255 ile ilintili olmuş ve 740 adına tahakkuk düzenlediğimde sıfır atıyor 2. 740 veya 255 in karşısına yazdığım rakamı değilde genel toplamda oluşan rakamı atarsa sıkıntı çözülür yani O13+O14 =25 10+20=30 SADECE OTUZ RAKAMINI ATARSA RAKAM YERİNE İYİ OLUR VE 3. her bir harcama cetveline bağımsız atsın bilgileri

1. 255 ile 740 arasındaki bağı çözdüm. Formülde hata yapmışım.Yukardaki dosyada mesajınızdan önce düzelttim. (2. düzeltme)

2. ve 3. Ne anlatmak istediğinizi çözemedim. Örnek dosyanızdaki verileri sıfırlayıp, nasıl istiyorsanız o haliyle tekrar düzenler misiniz.

4. dosyanızda lütfen gerçek isim ve veri kullanmayın.

 

[stres]

Umarim Bu Sefer Olur

 

[AS3434]

Sayın stres

Sizinle anlaşamayacağız. Güzel anlatmışsınız ama, ben anlattıklarınızı çözümleyemiyorum. (Bugün herşeyi zor anlıyorum.)
Yukarıda ki dosya zaten istediklerinizi yapıyor. Ekte gönderdiğim dosyada renklendirdim. Bu şekil istemiyormusunuz?

Formüller 255 sayfasında S sütununda, 740 sayfasında BB sütununda. İnceleyin.

 

[stres]

eline sağlık şimdi olmuş ama diyelimki yeni bir sayfa ekleyeceğim 253 veta 770 olacak formüller az çok tamamda makrosunu inceledim biraz her sayfa için ayrı bir makro oluşturulacak o da tamam makroda

Sub Aktar()
If MsgBox(" KAYDETMEK İSTİYORMUSUNUZ ??", vbYesNo) = vbNo Then Exit Sub
Application.ScreenUpdating = False
Sheets("255demirbaş").Select
i = [c65536].End(3).Row + 1
[S2:AD2].Copy
Range("b" & i).PasteSpecial Paste:=xlPasteValues
Range("b" & i).Select
Sheets("740Üretimgideri").Select
x = [c65536].End(3).Row + 1
[BB2:CF2].Copy
Range("b" & x).PasteSpecial Paste:=xlPasteValues
Range("b" & x).Select

burdaki (1 ve x) her sayfa için değişkenmi yada her sayfa için nasıl bir makro oluşturmam gerekiyor bu konudaki son sorum
kısaca bunada değinirseniz sevirim .Ha birde sağol formülleri yazmışssın onları kimse müdale edemesin diye nasıl gizleyebilirim. son söz bu konuda son :roll:

 

[stres]

burdaki (1ve x) değil (i ve x)

 

[stres]

as3434 ne kadar teşekkür etsem azdır makronun ve formülün mantığını çözdüm:hihoho: birde formül hücrelerini bulunduğu yeri nasıl gizleyeceğim onu yazarsan:???:

 

[AS3434]

as3434 ne kadar teşekkür etsem azdır makronun ve formülün mantığını çözdüm birde formül hücrelerini bulunduğu yeri nasıl gizleyeceğim onu yazarsan

Esas işlemi sayfalarda ki formüller yapıyor..
Makro sadece belli bir alanı kopyala-yapıştır yapıyor.

Sub Aktar()
If MsgBox(" KAYDETMEK İSTİYORMUSUNUZ ??", vbYesNo) = vbNo Then Exit Sub
Application.ScreenUpdating = False
[COLOR=blue]Sheets("255demirbaş").Select[/COLOR]
[COLOR=red]i = [c65536].End(3).Row + 1[/COLOR]
[COLOR=blue][S2:AD2].Copy[/COLOR]
[COLOR=blue]Range("b" & i).PasteSpecial Paste:=xlPasteValues[/COLOR]
[COLOR=blue]Range("b" & i).Select[/COLOR]
 
[COLOR=darkred]Sheets("740Üretimgideri").Select[/COLOR]
[COLOR=red]i = [c65536].End(3).Row + 1[/COLOR]
[COLOR=darkred][BB2:CF2].Copy[/COLOR]
[COLOR=darkred]Range("b" & i).PasteSpecial Paste:=xlPasteValues[/COLOR]
[COLOR=darkred]Range("b" & i).Select[/COLOR]
[COLOR=#8b0000][/COLOR] 
[COLOR=darkred][COLOR=black]Sheets("[/COLOR][COLOR=green]yeni bir sayfa[/COLOR][/COLOR][COLOR=black]").Select[/COLOR]
[COLOR=red]i = [c65536].End(3).Row + 1[/COLOR]
[COLOR=darkred][COLOR=black][[/COLOR][COLOR=green]formül alanı[/COLOR][/COLOR][COLOR=black]].Copy[/COLOR]
[COLOR=black]Range("b" & i).PasteSpecial Paste:=xlPasteValues[/COLOR]
[COLOR=black]Range("b" & i).Select[/COLOR]
[COLOR=black]end sub[/COLOR]

Renkli alanları her sayfa için ayrı ayrı yapmanız lazım. i veya x olması farketmez. Hepsini aynı harfi verebilirsiniz. (i) mesela. Ama her sayfa için renkli guruplardan bir tane yazmanız lazım.
Tek bir seferde de olabilir ama o zaman kopyalanacak alan boyutlarının aynı olması lazım. ( [S2:AD2]. ve [BB2:CF2].)

Gizleme işini sütunları seçin Gizle deyin. O kadar. "ÖDEME EMRİ" sayfasında yaptığınız gibi.

 

[stres]

teşekkürler

 

[stres]

gerçi dün itibariyle bu konu ile ilgili olarak son demiştim ama gel görki küçük bir tefarruat dışında tamam oda şu ödeme emri belgesinde 740 tan ödeme yaptığımda 740 ın 1. satırına bilgileri gönderiyor 255 ten ödeme yaptığımda 255 te bir veya bir kaç satır atlayarak mesela 5. satırdan kayıt yapıyor bunu düzletmenin yolu varmı gerçi ben kendime göre buldum aradaki boş satırları siliyorum halledidiyorum ama işte hallediyorum ?

 

[AS3434]

Sayın stres

"Son" diye yazmanız önemli değil. Önemli olan işinize tam anlamı ile yarayacak bir dosya hazırlamak ve kullanımda sorun yaşamamak.

Söylediğiniz sorunu bende bugün farkettim ve çaresini bulamadım, sebebini de anlamadım.

Makro konusunda iyi değilim. Bende sizin gibi bu forumdan ne öğrendiysem o kadar biliyorum. Ama sorun hakkında araştırıyorum, çözebilirsem veya bu arada başka bir arkadaş yardımcı olursa bende birşey öğrenmiş olacağım.

Sevgi ile kalın.

 

[stres]

olsun yinede tüm yardımlarınız için teşekkür ederim

 

[AS3434]

Makro ile son satır bulma problemi.

Değerli arkadaşlar.

Sub Aktar()
Sheets("255demirbaş").Select
i = [c65536].End(3).Row + 1
[S2:AD2].Copy
Range("b" & i).PasteSpecial Paste:=xlPasteValues
End Sub

Kodları ile C sütunun da ilk boş satırı bulup, kopyalamayı yapıyorum.
Sorun, [s2:ad2] aralığında veri olmayınca (boş), kopyalamadan sonra ilk boş satır bir alt satıra kayıyor. Yani arada boş satırlar oluşuyor.

http://www.excel.web.tr/showthread.php?t=35110
9 nolu mesajda.
ÖDEME EMRİ sayfasında 255 leri 740 yapın. Kaydet butonuna basın. tekrar 1 tane 255 yazın. kaydet . Ve 255 sayfasında sonuca bakın.
Arada kalan boşluk sorununu bir türlü çözemedim.

 

[Skorpiyon]

Arkadaşlar,

Sayın AS3434'ün dediklerini yaptıktan sonra,

"255demirbaş" sayfasında C kolonunda boş görünen hücreye bir veriyi taşımaya çalışın. Hücrenin içinin aslında boş olmadığını göreceksiniz. Bu nasıl oluyor bende anlamış değilim.

Saygılarımla...

 

[Korhan Ayhan]

Selamlar,

Sorun [S2:AD2].Copy alanından kaynaklanmaktadır. Bu alan formülle verileri almaktardır. Ve formülede veri yoksa "" boş bırak ifadesi kullanılmıştır. Bunu aşabilmek için IF kontrolü eklemek faydalı olacaktır. Kodları aşağıdaki gibi düzenlerseniz problem çözülür.

Sub AKTAR()
    If MsgBox(" KAYDETMEK İSTİYORMUSUNUZ ??", vbYesNo) = vbNo Then Exit Sub
    Application.ScreenUpdating = False
    Sheets("255demirbaş").Select
    If [R2] > 0 Then
    X = [C65536].End(3).Row + 1
    [S2:AD2].Copy
    Range("B" & X).PasteSpecial Paste:=xlPasteValues
    Range("B" & X).Select
    Else
    Sheets("740Üretimgideri").Select
    If [BA2] > 0 Then
    Y = [C65536].End(3).Row + 1
    [BB2:CF2].Copy
    Range("B" & Y).PasteSpecial Paste:=xlPasteValues
    Range("B" & Y).Select
    Sheets("ÖDEME EMRİ").Select
    End If
    Application.CutCopyMode = False
    End If
End Sub