Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 07-04-2017, 08:51   #11
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,091
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

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/TA...RI_AL.zip.html

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2017, 09:32   #12
zaffer1981
 
Giriş: 26/03/2012
Şehir: ANKARA
Mesaj: 253
Excel Vers. ve Dili:
MİCROSOFT EXCELL OFFİCE 2007
Varsayılan

Müthişsin asri hocam. Allah razı olsun. Çok teşekkür ederim.
zaffer1981 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2017, 16:17   #13
canbey6161
Altın Üye
 
Giriş: 01/12/2016
Şehir: TRABZON
Mesaj: 57
Excel Vers. ve Dili:
2014
Varsayılan

söz konusu excelse asri hocam yapar
canbey6161 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-04-2017, 08:33   #14
ali1204
Altın Üye
 
Giriş: 26/11/2013
Mesaj: 5
Excel Vers. ve Dili:
2007 2010 xls
Varsayılan 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.
Eklenmiş Dosyalar
Dosya Türü: xlsx KASA.xlsx (131.7 KB, 2 Görüntülenme)
ali1204 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 11:14   #15
zaffer1981
 
Giriş: 26/03/2012
Şehir: ANKARA
Mesaj: 253
Excel Vers. ve Dili:
MİCROSOFT EXCELL OFFİCE 2007
Varsayılan

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.
zaffer1981 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 17:55


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Excel Eğitimi - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Kamera- Çorlu Fiber- Çorlu Araç Takip- Çorlu Su Arıtma-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden