• DİKKAT

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

Adı Soyadına göre Kapalı Dosyadan veri getirmek

Yapılmasını istediğim şey biraz zor sanırım. Uğraşan yapan arkadaş beni bi yükten kurtaracak inşallah
 
sayın Orion1 Merhaba. Rica etsem ekli dosyalara bakabilir misiniz. bir türlü çözemedim. konulara da baktım ama makro bilmediğim için yapamadım. zahmetleriniz için teşekkür ederim.
iyi çalışmalar
 
Veri çekilecek dosya veri tabanı şeklinde değil.
Bu tür dosyalardan veri çekmek zordur.
Veri tabanı olması için ilk satırda başlıklar olmalı ve başka alt satırlarda başlık falan olmamalı,veriler ilk satırın altından itibaren hep ayni biçimden oluşan satırlar şeklinde olmalı.:cool:
Yani biçim toplanan veriler dosyasındaki gibi olmalı.Siz tersten gidiyorsunuz.:cool:
 
Cevap için Teşekkürler.
Şöyle bir mantık yürütsek olur mu acaba.
İlgili kişinin tablosunun "AÇIKLAMA" yazan hücresinin altındaki hücreler boşluksuz dolu. Yani ilk boşluğa kadar hepsinde de değer var. Ben toplanan veriler dosyasındaki ilgili hücreye kimlik numarasını yazıp makro düğmesine bastığımda, Tabloların olduğu dosyada bu eşleşen kimlik numarısını bulsa, daha sonra bu kimlik noya en yakın "AÇIKLAMA" yazan hücreyi bulup o hücrenin altındaki en son dolu olan hücreyi bulsa ve yanındaki sekiz hücre içeriğini yazdırsa olur mu? Abartılı bir şey söylemişsem affola.
 
verilerin çekileceği dosya sayfasını güncelledim. inceleyebilir misiniz acaba
 
Orion1' Alıntı:
Veri çekilecek dosya veri tabanı şeklinde değil.
Bu tür dosyalardan veri çekmek zordur.
Veri tabanı olması için ilk satırda başlıklar olmalı ve başka alt satırlarda başlık falan olmamalı,veriler ilk satırın altından itibaren hep ayni biçimden oluşan satırlar şeklinde olmalı.:cool:
Yani biçim toplanan veriler dosyasındaki gibi olmalı.Siz tersten gidiyorsunuz.:cool:
Genişletmek için tıkla ...

zaffer1981' Alıntı:
verilerin çekileceği dosya sayfasını güncelledim. inceleyebilir misiniz acaba
Genişletmek için tıkla ...

İnceledik. Siz galiba Sayın Orion1 in dediklerini anlamadınız. Veri çekilecek dosyanın yapısı Toplanan veriler deki gibi olmalı. Tablo olarak ısrarınızın amacı nedir anlayamadım.?
 
Kontrol ediniz.

Tablo yapısı korunmuş olmalı.
TC No, Açıklama ve Şef kolonları değişmemeli.
Şef yazısının bulunduğu hücredeki ilk üç karakter Şef olmalı

http://s9.dosya.tc/server2/5kop5q/TABLODAN_VERI_AL.zip.html

Kod: 
Dim listetc, cekilecekdosya As String
Dim toplananveri As Workbook
Dim tcsatir As Long

Sub menu()
    Set toplananveri = ActiveWorkbook
    Call temizle
    Call dosya_ac
    Call veritopla
    ActiveWorkbook.Close
    
    MsgBox ("Verileri toplama işlemi tamamlandı")
End Sub

Sub temizle()
    Sheets("Çekilen Veriler").Select
    Range("B2:J100000").Select
    Selection.Clear
    Selection.NumberFormat = "@"
    Range("A1").Select
End Sub

Sub dosya_ac()
  yol = ActiveWorkbook.Path
  yol = yol & "\Veri Çekilecek Dosya.xlsx"
  Workbooks.Open (yol)
  cekilecekdosya = ActiveWorkbook.Name
End Sub

Sub veritopla()
   Set sh = toplananveri.Sheets("Çekilen Veriler")
   sonsatir = sh.Cells(Rows.Count, "A").End(3).Row
   sonsatirtablo = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
   satir = 1
   For j1 = 2 To sonsatir
     listetc = sh.Cells(j1, 1).Value

     tcsatir = 0
     On Error Resume Next
     tcsatir = Cells.Find(listetc, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
     If tcsatir = 0 Then GoTo sonj
   
   For i = tcsatir + 5 To sonsatirtablo
     aciklama = Cells(i, 8).Value
     bilgitc = Cells(i, 4).Value
     sefbilgi = Cells(i, 6).Value
     If aciklama <> "" Then
       sonaciklama = i
     End If
     
     If InStr(sefbilgi, "Şef") > 0 Then
        For j = 1 To 10
          sh.Cells(j1, j + 2).Value = Cells(sonaciklama, j).Value
        Next j
        Exit For
     End If
   Next i
sonj:
   Next j1
End Sub
 
Müthişsin asri hocam. Allah razı olsun. Çok teşekkür ederim.
 
Günlük kasa hareketlerini ilgili dosyalara aktarma

Merhaba arkadaşlar

ben bu örneğe yakın birşey sormak istiyorum

ekte gönderdiğim dosyada firma adı bölümünde dosyaları mevcut olan firmalar bulunmakta.

Buraya işlediğimiz verileri var olan dosyalara tarihe göre sıralayıp kopyalamasını istesek.bu koduna yardımcı olabilirmisiniz teşekkür ederim.
 

Ekli dosyalar

Merhaba. Konunun üzerinden biraz geçti ama asri hocam şöyle bi değişiklik yapmamız mümkün mü acaba. son satırı açılama yazan hücrede değil de bu sefer görev yeri yazan hücrenin altında arayabilir mi ve tablodaki görev yerinin altındaki son dolu olan hücreyi bulup yanındaki 8 hücreyi yazdırabilir mi.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst