Satır Ekleyerek Veri Aktarımı

[serbestmali]

SELAMLAR
EXCEL BİR SAYFASINA VERİ GİRDİKÇE DİÐER SAYFADA OLUÞTURULAN ÇİZELGEYE SATIR İLAVE EDİLSİN
BÃ?YLE BİR MACRO YAZABİLİRMİSİNİZ
MAAÞ BORDROSUNU DÜÞÜNÜN YENİ BİR PERSONEL GELDİÐİNDE İLK SAYFAYA İSMİNİ GİRDİÐİMİZDE İKİNCİ SAYFADA ONUN İÇİN ALTTA YENİ BİR SATIR İLAVE EDİLSİN


TEÞEKKÜRLER

edit xxrt:"SATIR EKLEME" Konu Başlığı "Satır Ekliyerek Veri Aktarımı" olarak değiştirildi.

 

[zafer]

Merhaba

Aşağıdaki makroyu module kopyalayıp çalışitırınız

Sub ekle()
c = Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row
d = Sheets("sayfa2").Cells(65536, 1).End(xlUp).Row

Sheets("sayfa2").Cells(d+1, 1) = Sheets("sayfa1").Cells(c, 1)

End Sub

 

[serbestmali]

selam
sadece 1 sayfadaki veriyi 2 sayfaya kopyalıyor benim istediğim çizelgesiyle
birlikte oluşturması

 

[zafer]

Merhaba

Nasıl çalışmıyor anlayamadım.Hata mesajımı veriyor.Ã?rnek bir dosya eklerseniz inceleyelim.

 

[serbestmali]

ekte zor zahmet gönderdim

 

[zafer]

Merhaba

Ekli dosyayı aldım fakat bir açıklama yazmamışsınız.
1.sayfayamı veri giriyorsunuz 2 sayfayamı
hangisi hangisine ne şekilde aktarılacak , hangi hücreler aktarılacak
dosyanıza bunlarıda ilave edebilirmisiniz.

 

[serbestmali]

merhaba

yeni bir dosaya gönderecem
kontrol sayfasına veri girilince
sayfa 1 ve 2 ye çizelgeyi yapacak
personel ayrılınca kontrolden silince çizelge de silinecek

 

[zafer]

Merhaba

Siz Formüllerle sayfalara bağlantılı olarak güzel bir tablo yapmışsınız.
Bende aynı şekilde bağlantılı yapardım.

Makro ile istiyorsanız.İstediğiniz kontrol tablosundan verileri 1 ve 2 sayfaya getiremez diye düşünüyorum.Kontrol tablosunda personelin adının yanında ders saatleri ve kesintiler aynı satırda olsaydı o zaman olurdu.sizin tablonuzda değişik satırlara yerleştirilmiş.

Bu benim şahsi düşüncemdir.

Saygılarımla

 

[serbestmali]

MİLHANALP KARDEÞİMİZ SORUNU ÇÃ?ZDÜ
ANCAK TAKILDIÐIM YER İSE;
1-ÇİZELGEYİ 2 SAYFANIN A1 SATIRINDAN BAÞLIYOR BU A6 DNA BAÞLAYABİLİRMİ
2-ÇİZELGEYİ 2-3-4-5 SAYFALARA DA AKTARABİLİRMİYİM

 

[zafer]

Merhaba

Sizin gönderdiğiniz ilk ek ile ile son gönderdiğiniz ek birbirinden farklı.
Çözüme kavuşan sorununuzun çözümü nerede.


Saygılarımla

 

[serbestmali]

SATIR EKLEME

YAPILAN MACROYU

Sub Makro1()
'
' Makro1 Makro
' Makro İLHAN tarafından 03.12.2005 tarihinde kaydedildi.
Dim son As Integer
On Error Resume Next
son = WorksheetFunction.CountA(Sheets("sayfa2").Range("A:A"))
Range("A1:F" & son).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    [a1].Select
End Sub
Sub gönder()
'
' gönder Makro
' Makro İLHAN tarafından 03.12.2005 tarihinde kaydedildi.
    Dim enalt As Integer
    enalt = WorksheetFunction.CountA(Sheets("sayfa1").Range("A:A"))
    Sheets("Sayfa1").Cells(enalt, 1).Select
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("A1").Select
    Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveSheet.Paste
    Call Makro1
End Sub

ANCAK
ANCAK TAKILDIÐIM YER İSE;
1-ÇİZELGEYİ 2 SAYFANIN A1 SATIRINDAN BAÞLIYOR BU A6 DNA BAÞLAYABİLİRMİ
2-ÇİZELGEYİ 2-3-4-5 SAYFALARA DA AKTARABİLİRMİYİM

3-VERİLER A1 DEN BAÞLAYARAK ALINIYOR A6 DAN ALINABİLİRMİ

 

[Ali]

Sheets("Sayfa2").Select değiştirerek diğer sayfalara
Sheets("Sayfa3") Sheets("Sayfa4 ") gibi atabilirsin

Range("A1") da değiştirerek Range("A6") A6 dan başlatabilirsin

 

[Ali]

Birde makrolara yeni başladıysanız Sayın İsakarakus'un
Excel dersanesindeki makro anlatımı çok güzel

http://www.excel.web.tr/viewtopic.php?t=4153 linkine bakın size faydalı olacağını düşünüyorum

 

[xxrt]

Sayın serbestmali,
Bu forumda sorulan soruların çoğu forum kurallarına uygun bir şekilde sorulmaktadır.Uygun olmıyanlarıda biz uyararak sağlıyoruz..
İlk sorunuzun altına Sayın zafer cevap vermiş.Bunun ardından siz olmadığı yönünde cevap vermişsiniz.
Tam 4 topic 5 dakika ara ile..
Israr ile çözüm bulamadığınızı yazıyorsunuz..

Ayrıca forum kurallarına göre Büyük harf kullanmak

Büyük Harf Kısıtlaması:
- Mesaj yazarken büyük harf kullanmak bağırmak anlamına geleceği için yazılarınızı kesinlikle büyük harf kullanarak yazmayınız.

Yazılarınızın çoğu büyük harf.

SELAMLAR
EXCEL BİR SAYFASINA VERİ GİRDİKÇE DİÐER SAYFADA OLUÞTURULAN ÇİZELGEYE SATIR İLAVE EDİLSİN
BÃ?YLE BİR MACRO YAZABİLİRMİSİNİZ
MAAÞ BORDROSUNU DÜÞÜNÜN YENİ BİR PERSONEL GELDİÐİNDE İLK SAYFAYA İSMİNİ GİRDİÐİMİZDE İKİNCİ SAYFADA ONUN İÇİN ALTTA YENİ BİR SATIR İLAVE EDİLSİN


TEÞEKKÜRLER

//*
MİLHANALP KARDEÞİMİZ SORUNU ÇÃ?ZDÜ
ANCAK TAKILDIÐIM YER İSE;
1-ÇİZELGEYİ 2 SAYFANIN A1 SATIRINDAN BAÞLIYOR BU A6 DNA BAÞLAYABİLİRMİ
2-ÇİZELGEYİ 2-3-4-5 SAYFALARA DA AKTARABİLİRMİYİM
//*




ANCAK
ANCAK TAKILDIÐIM YER İSE;
1-ÇİZELGEYİ 2 SAYFANIN A1 SATIRINDAN BAÞLIYOR BU A6 DNA BAÞLAYABİLİRMİ
2-ÇİZELGEYİ 2-3-4-5 SAYFALARA DA AKTARABİLİRMİYİM

3-VERİLER A1 DEN BAÞLAYARAK ALINIYOR A6 DAN ALINABİLİRMİ

Forum kuralları içerisinde sorularınızı tek topik halinde sorunuz.
Kolay Gelsin.

-----Edit:Bazı gereksiz topikler silinmiştir.---