Senaryo:

Tasklarımızın planlanan başlangıç tarihlerimizin var ve taskların sürelerinin olduğu bir Excel’imiz var.

Proje başlangıç tarihimiz ise 8 Haziran 2020

Yapacağımız işlemlerden sonra proje takibi için aşağıdaki Gant Chartt raporunu elde etmek istiyoruz.

Haydi başlayalım.

İşlerimizin adı, başlanacağı tarih ve harcanacak eforlarının olduğu Excel tablomuz.

Üst menüde bulunan butonlardan Aşağıdaki ekran çıktısında görebileceğiniz gibi Gant Chartt raporu için grafik ekleme işlemi yapıyoruz.

Eklenen boş grafiğe sağ tık yapıp “Select Data” ile verilerimizi tanımlayacağız.

Select Data ‘yı tıkladıktan sonra açılan menüden sol kısımda bulunan “Add” butonuna tıklıyoruz.

Gant Chartt raporumuzu hazırlayabilmemiz için bizden başlığı ve verileri seçmemizi isteyecek. Aşağıdaki örnekteki gibi seçimimizi yapıyoruz. Burada Projedeki işlerin planlanan başlangıç sürelerini belirleyeceğiz.

Tekrar aynı sol kısımda bulunan “Add” butonuna basıyoruz. Şimdi de bu işlerin ne kadar süreceği ile ilgili verileri seçeceğiz.

Kabaca Gant Chartt’ı oluşturduk şimdi ince ayarlara gelelim.

Grafik üstünde sağ tık yapıp “select data” dediğimizde açılan menüden bu sefer sağ kısımda bulunan ve otomatik dolan alanı düzenleyeceğiz. “Edit” butonuna basalım.

İş adlarını seçelim. Oluşturacağımız raporda görünecekler.

İş adlarının’da grafiğe geldiğini görmüş olmalısınız. Şimdi grafik üzerinde İş adlarının olduğu kısıma sağ tık yapalım ve “Format Axis” tıklayalım.

“Categories in Reverse Order” işaretini seçelim. böylece daha sıralı ve anlamlı bir grafik elde edeceğiz. Artık Gant Chartt raporumuzu oluşturmaya çok az kaldı.

Planlanan başlangıç zamanı ile ilgili alana grafik üzerinde ihtiyacımız yok. Mavi bar’ın üzerine sağ tık yapalım. “Format Data Series” i seçelim

Sağ tarafta çıkan menüden “no fill” i işaretleyelim

Herşey çok güzel de proje başlangıç zamanından itibaren grafiğin görülmesi daha anlamlı olacak onun için grafikte bulunan tarih kısmına sağ tık yapıp “Format Axis” i tıklayalım.

Burada aşağıda gördüğünüz menüde “Minimum” değerine proje başlangıç zamanının Numeric formatını yazmanız lazım. Bunun için proje başlangıç tarihini farklı bir hücreye kopyalayıp formatını numeric seçerseniz değeri görebilirsiniz. Gördüğünüz değeri “Minimum” yazan yere yazın.

Bu kadar. Gant Chartt’ımız hazır aşağıdaki örneğe bakarak tasarımında değişiklikler yapabilirsiniz.

Umarım faydalı olmuştur.

İşinize yarayabilecek bazı bağlantılar:

Microsoft Office

Microsoft Office Support

The post Excel’de Gantt Chart Oluşturma appeared first on DijitalTurk.

Adobe ID’niz var ise ;

Sol üstte bulunan TOOL menüsüne tıklayın

Açılan kısımda Export PDF seçin.

Açılan kısımda PDF’e aktarmak istediğiniz excell dosyasını bilgisayarınızdan seçin

Excell’e aktarmak istediğiniz dosyaları buraya toplu olarak ekleyebilirsiniz. Sonrasında aşağıda bulunan “Convert To” sekmesini tıklayarak PDF’i neye dönüştürmek istiyorsanız seçebilirsiniz. Ben Excell’i seçiyorum.

Son olarak size Adobe ID’nizi soruyor bu adımdan sonra dönüştürme tamamlanmış olacak. Bu kısımda Adobe ID’si olanlar için anlatım yapıldı diğer yöntemleri de aşağıda paylaşacağım.

Adobe’un resmi sayfasında Excell’e dönüştürme için açıkladığı adımları da görebilirsiniz. Eğer versiyon farkından v.s. yukarıdaki bilgiler işinize yamaz ise bunu da deneyebilirsiniz.

Adobe’un kendi uygulamasını kullanarak PDF dosyasını Excell’e dönüştürebilirsiniz.

Buradan sonrası online ücretsiz PDF dönüştürme servisleri hakkında bilgi vermektedir.

https://www.investintech.com/able2extract.html

Adresine girip aşağıdaki adımları izlerseniz kısa sürede Excell’e dönüştürülmüş PDF dosyanıza ulaşabilirsiniz.

Kısa sürede PDF dosyanızı Excell’e aktarıp size indirme bağlantısını aşağıdaki gibi verecektir.

PDF’lerinizi Excell’e aktarmak için online Alternatif 2(Denenmiştir):

https://www.pdftoexcel.com/tr

Bu biraz sinir bozucu görünsede acil durumlarda hayat kurtarabilir. Yüklediğiniz PDF’i Excell’e ücretsiz dönüştürüyor ama sizi biraz bekletiyor, sayının yüksek olması sizi korkutmasın 5dk içinde dönüştürmüş olacaktır.

PDF’lerinizi Excell’e dönüştürmek için bir alternatif de bu Alternatif 3 (Denenmemiştir):

http://www.pdf2txt.de sitesinde aşağıdaki gibi kolay bir şekilde dönüşüm yaptığını idda ediyor, önce sizden e-postanızı istiyor sonra da  dönüşüm yaptığı excell dosyasını size e-posta ile gönderiyor.

The post PDF dosyasını Excell’e aktarma yöntemleri appeared first on DijitalTurk.

Private Sub Worksheet_Change(ByVal Target As Range)
'    MsgBox (Target.Address)
    If (Target.Address = "$B$5") And ([b5].Value = "") Then
    [d5].Value = ""
    End If
    
    If (Target.Address = "$B$5") And ([b5].Value <> "") Then
    FirmaKodSorgu
    End If
End Sub

The post VBA Excel de tuşa basıldığını algılatma ve işlem yapma appeared first on DijitalTurk.

* Seçenekler (Options) penceresi açılacaktır.

* Hesapla (Calculation) sayfa sekmesine geçin.

* Burada El ile (Manuel) seçeneğini

* Otomatik (Automatic) olarak değiştirin.

*. Tamam (OK) düğmesine basın.

The post Excel formülleriniz hesapma yapmayı durdurursa appeared first on DijitalTurk.

G stununda ki boş satırları seçer, F stununda ki birleşmiş hücreleri ayırır

The post VBA Excell Boş Satırları Seçme ve Bölme appeared first on DijitalTurk.

Ek özellikleri:

• ister sayfa sırası, ister sayfa ismine göre birleştirme,
• Koşul tanımlama (ör: belirli bir hücrenin değeri x olursa al)
• Hataları kaydetme
• ingilizce destekli (Supported English)

Makrolu olduğu için ön izlemede göremeyebilirsiniz. indirmek için aşağıdaki “download / İndir” link’ini tıklayabilirsiniz.

Bu excel sayfa birleştirme macro uygulaması ile neler yapabilirsiniz;

yüzlerce excel dosyanız olabilir, bu dosyaların içerisinde onlarca excel sheet’iniz olabilir. tüm bu verileri tek bir excel dosyasının içinde hatta tek bir sheet’in içerisinde belirli koşulları sağlıyorsa gibi komutlar ekleyerek birleştirme işlemi yapabilirsiniz.

Bunun için video çekeceğimi yazmıştım ama hala çekmedim biliyorum ama hala aklımda vakit bulduğum ilk fırsatta Excel Sayfa Birleştirme uygulaması için bir anlatım videosu çekeceğim.

Bu uygulamayı eski çalıştığım iş yerinde işlerimi kolaylaştırsın diye tasarlamıştım ve o dönem resmen hayatımı kurtarmıştı. Umarım sizlere de faydası olur.

Lütfen Excel Sayfa Birleştirme uygulamasını paylaşacaksanız DijitalTurk.com’ü kaynak göstermeyi unutmayınız.

Sayfa birleştirme excel macro uygulaması makro içerdiği için ve uzantısı .xlsm olduğu için aşağıdaki önizleme alanında görünmeyecektir ama “İNDİR” yazan yere tıklarsanız indirebilirsiniz.

İNDİR

The post Excell Sayfa birleştirme (Sheet import with macro) appeared first on DijitalTurk.

detaylı kullanım kılavuzunu yakında yayınlayacağım.

[ddownload id="366"] 

The post Excell’den MSSQL’ veri aktarma programı -LeVo appeared first on DijitalTurk.

butonumuz’un içeriği

procedure TAnaForm.cxButton1Click(Sender: TObject);
var
    book:variant;
    excel,sheet:variant;
    satir, sutun,i,RehID,d:integer;
    DbS,ExcelS:string;

    function excelsonsatir(AColumn: Integer): Integer;
    const
    xlUp = 3;
    begin
     Result := excel.Range[Char(96 + AColumn) + IntToStr(65536)].end[xlUp].Rows.Row;
    end;
begin

  excel := CreateOleObject('Excel.Application');
  OpenDialog1.Title := 'Excel Dosyasını Aç';
  OpenDialog1.Filter := 'Excel Dosyaları *.xls';

//  if OpenDialog1.Execute then begin
    book := Excel.WorkBooks.Open(cxTextEdit1.text);

    try
    Screen.Cursor := crHourGlass;
    sheet := book.worksheets[1];
    cxLabel1.Caption := 'Excelden veriler aktarılıyor.Bekleyiniz...';
    cxProgressBar1.Properties.Max := excelsonsatir(1)+1;

      for satir := 2 to excelsonsatir(1)+1 do begin

        cxProgressBar1.Position := satir;
        cxProgressBar1.Refresh;

          if VarToStr(sheet.cells[satir,2]) <> '' then
          begin
            tablo.ADOQuery1.Close;
            tablo.ADOQuery1.SQL.Text:='select * from ILSEMT where SEMTADI='''+trim( VarToStr(sheet.cells[satir,2]) )+'''';
            tablo.ADOQuery1.Open;

                  DbS:=trim(Tablo.ADOQuery1.FieldByName('SEMTADI').AsString);
                  ExcelS:=trim(VarToStr(sheet.cells[satir,2]));

                  if DbS=ExcelS then
                  begin
                     //showmessage(Tablo.ADOQuery1.FieldByName('SEMTADI').AsString+'-'+VarToStr(sheet.cells[satir,2])+' AYNI eklenmeyecek');
                  end else
                  begin
//                    showmessage('insert into ILSEMT(ILNO,SEMTADI,UZAKLIK)  values('''+trim( VarToStr(sheet.cells[satir,1]) ) +''','''+trim( VarToStr(sheet.cells[satir,2]) )+''','''+trim( VarToStr(sheet.cells[satir,3]) )+''')  ');
                      cxMemo1.Lines.Add(VarToStr(sheet.cells[satir,2]));
                      tablo.ADOQuery1.Close;
                      tablo.ADOQuery1.SQL.Text:='insert into ILSEMT(ILNO,SEMTADI,UZAKLIK)  values('+trim( VarToStr(sheet.cells[satir,1]) ) +','''+trim( VarToStr(sheet.cells[satir,2]) )+''','''+StringReplace(trim( VarToStr(sheet.cells[satir,3]) ),',','.',[rfReplaceAll])+'''); select scope_identity() as deger;  ';
                      tablo.ADOQuery1.open;
                  end;

//            showmessage('diğer kayda geçiyor');
          end;

         if tablo.ADOQuery1.fields[0].asinteger>0 then  d:=tablo.ADOQuery1.fields[0].AsInteger;

       //nakliye ye giriş
//         tablo.ADOQuery1.Close;
//         tablo.ADOQuery1.SQL.Text:='insert into NAKLIYE(SEMTNO,TUTAR,ALT,UST)  values('+trim( inttostr(d) ) +','+trim( VarToStr(sheet.cells[satir,6]) ) +','''+trim( VarToStr(sheet.cells[satir,4]) ) +''','''+trim( VarToStr(sheet.cells[satir,5]) ) +''')  ';
//         tablo.ADOQuery1.execsql;
        //nakliyeye giriş

      end;
      excel.DisplayAlerts := False;
      excel.quit;
      excel := Unassigned;
      Application.Messagebox(PChar('Veriler kaydedilmiştir.'),Pchar('uyarı'),MB_OK);
    finally
      Screen.Cursor:=crDefault;
    end;
//  end;
end;

The post Excell ‘den ole ile veri çekme appeared first on DijitalTurk.