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.

* 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 “Download” yazan yere tıklarsanız indirebilirsiniz.

Loading...

Taking too long?

Reload document

| Open in new tab

Download

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

Sub Parcala()
    Dim kelime, ayrac As String
    Dim satir, sutun, Yapistir As Variant
'*******************
'ayrac = "."
'sutun = "2"
'satir = "1"
'Yapistir = "3"
'*******************

    ayrac = InputBox("Ayririci Ne Olacak", "Ayrac Girin")
    sutun = InputBox("Hangi Sutundan Baslasin", "Hangi Sutundan Baslasin")
    satir = InputBox("Satir Baslangic Sayisi", "Satir Baslangic Sayisi")
    Yapistir = InputBox("Bulunan deger nereye yapistirilsin", "Bulunan deger nereye yapistirilsin")

'       For i = CInt(satir) To Columns(CInt(sutun)).End(xlDown).Row
        For i = CInt(satir) To Cells(Rows.Count, CInt(sutun)).End(xlUp).Row
        kelime = Cells(i, CInt(sutun)).Value
        If kelime = "" Then GoTo atla:
        kelime = Mid(kelime, (InStr(1, kelime, ayrac, 0) + 1), Len(kelime))
        Cells(i, CInt(Yapistir)).Value = Mid(kelime, 1, (InStr(1, kelime, ayrac, 0) - 1))

        If (Cells(i + 1, CInt(sutun)).Value = "") And (Cells(i + 2, CInt(sutun)).Value = "") And (Cells(i + 3, CInt(sutun)).Value = "") And (Cells(i + 4, CInt(sutun)).Value = "") Then Exit For
atla:
         Next

End Sub

The post Hücre içinde değer ayıklama appeared first on DijitalTurk.

Sheet1 sayfasında ki A ve E stunlarında bulunan boşluk değerlerini yok eden replace kodu

The post Vba Replace appeared first on DijitalTurk.

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

İndir 

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.