Soru veri aktarma

[drykcktl]

merhabalar hazırlamış olugum bir excel sayfam var bu sayfada çözemediğim birkaç sorun kaldı yardımcı olursanız sevinirim

öncelikle index sayfamda toplam aldırmak istiyorum tarihe göde olan sayfalarda toplam hücremde ne yazıyorsa index sayfasına da yazsın bu formulle yapabiliyorum ama makro daha sağlıklı olacak
birde genel sayfadaki olan bütün veriyi analiz sayfasına aktarsın ama butonla değil veri yenilendikçe sayfayı açtığımda var olsun
şimdiden tesekkür ederim

İndir Yeni klasör

Dosyayı indir Yeni klasör

dosya.co

 

[cemshan]

Dosyanız indirilmiyor. Hata veriyor

 

[drykcktl]

günaydın tekrar yüklüyorum

İndir Yeni klasör

Dosyayı indir Yeni klasör

dosya.co

 

[muygun]

.Rar da problem var.
(sıkıştırmadan .xls olarak yükleyin)

 

[drykcktl]

günaydın yüklüyorum ama niye olmuyor acaba nerede hata yapıyorum bilmiyorum ben indirebiliyorum deneyeyim

 

[drykcktl]

İndir şubat gelen mal

Dosyayı indir şubat gelen mal

dosya.co

 

[drykcktl]

İndir şubat gelen mal

Dosyayı indir şubat gelen mal

dosya.co

 

[YUSUF44]

Dosyanızı bu haliyle çözebilir miyim bilmiyorum. Ancak çözebilecek olanlara yardımcı olmak açısından aşağıdaki hususları açıklamanız yararlı olacaktır:

Her sayfadan hangi hücrenin alınacağı nerden biliniyor?
Alınacak hücre her sayfada her zaman aynı hücre midir? Örnek dosyanızda F, G, H ve L87 hücrelerinden almışsınız. Bu hep böyle mi olacak yoksa başka zaman örneğin H105 ya da H58 olabilir mi?
Genel sayfadaki bütün veriyi analiz sayfasına aktarsın demişsiniz ama dosyanızda "Analiz" diye bir sayfa göremedim.

Ayrıca yerinizde olsam her gün için böyle ayrı sayfa oluşturmak yerine tek sayfada tüm verilerimi listeler, gerekirse rapor sayfasında istediğim güne ait verileri çekerdim.

 

[drykcktl]

evet haklısınız ama bu şekilde istiyorlar (patron) diger sorunuza gelince hücreler sabit hep aynı yerden alınacak veriler.analiz sayfam klasörde vardı ama indirilemedi.ben onun için bir kod buldum ama yapamadım



Sub auto_open()
Sheets("GENEL SAYFA").Activate
End Sub


Sub Kopyala()
Sheets("GENEL SAYFA").Range("B1:F65536").Copy
Workbooks.Open (ThisWorkbook.Path & "\ANALİZ")
Sheets("DATA").Activate
Range("A1").PasteSpecial
ActiveSheet.Columns.AutoFit
Range("A1").Select
End Sub

 

[YUSUF44]

Aşağıdaki kodları index sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırırsanız, index sayfasını her açtığınızda verileri yeniler:

Private Sub Worksheet_Activate()
son = Cells(Rows.Count, "D").End(3).Row
Application.ScreenUpdating = False
For sat = 2 To son
    Sayfa = "yok"
    For gun = 1 To Sheets.Count
        If Sheets(gun).Name <> "index" And Sheets(gun).Name <> "GENEL SAYFA" Then
            If Sheets(gun).Name = Format(Cells(sat, "D"), "dd.mm.yyyy") Then
                Sayfa = "var"
                Cells(sat, "F") = Sheets(gun).[F87]
                Cells(sat, "G") = Sheets(gun).[G87]
                Cells(sat, "H") = Sheets(gun).[H87]
                Cells(sat, "I") = Sheets(gun).[L87]
                gun = Sheets.Count
            End If
        End If
    Next
    If Sayfa = "yok" Then
        Range("F" & sat & ":I" & sat).ClearContents
    End If
Next
Application.ScreenUpdating = True
End Sub

Farklı dosyalardan veri alımı konusunda yeterli bilgim yok maalesef.

 

[drykcktl]

emeğinize sağlık çok teşekkür ederim

 

[drykcktl]

başka bir forumda bir arkadaşın vermiş olduğu bir kodla yedekleme yaptım ama sayfam çökünce tüm veriler gitti aynı kodu uyguladım ama olmuyor bu defa.yapmak istediğim şubat gelen mal kitabında bulunan genel sayfa sayfasına veri geldikçe aynı klasörde bulunan şubat analiz kitabında toplam sayfasına kopyalamak istiyorum
kullandığım kod

Sub yedek()
BuDosya = ThisWorkbook.Name
Sheets("GENEL SAYFA").Activate
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
Tarih = Format(Date, "yyyy") & "_" & Format(Date, "mmmm")
dosya = ThisWorkbook.Path & "\" & Tarih & "_Analiz.xlsx"
dadı = Tarih & "_Analiz.xlsx"
Workbooks.Add.SaveAs Filename:=dosya
Workbooks(dadı).Activate
ActiveWorkbook.ActiveSheet.Name = "DATA"
Windows(BuDosya).Activate
Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 14)).Copy
Application.Workbooks(dadı).Sheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.Workbooks(dadı).Sheets("DATA").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.Workbooks(dadı).Sheets("DATA").Columns("A:N").EntireColumn.AutoFit
Application.CutCopyMode = False
Workbooks(dadı).Save
Workbooks(dadı).Close
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
CreateObject("WScript.Shell").Popup Format(Date, "mmmm") & " Yedek Alma İşlemi Bitti.", 1, "Bilgi | Miraç CAN", vbInformation
End Sub
yardımcı olurmusunuz rica etsem

İndir Yeni klasör

Dosyayı indir Yeni klasör

dosya.co

 

[drykcktl]

yardımcı olabilecek kmsw yokmu