ERP Nedir? | Türkiye'nin ERP Forum Platformu : Excel'den Stok Sabit Degistirme http://www.erpne.org/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 18 Apr 2026 03:15:51 +0000 Tue, 31 May 2011 09:32:34 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.10 360 www.erpne.org/RSS_post_feed.asp?TID=2616 <![CDATA[ERP Nedir? | Türkiye'nin ERP Forum Platformu]]> http://www.erpne.org/forum_images/logotype.png http://www.erpne.org/ <![CDATA[Excel'den Stok Sabit Degistirme : Mehmet bey ilginize çok tesekkür...]]> http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14657.html#14657 Yazar: unalh
Konu: 2616
Gönderim Zamanı: 31 Mayıs 2011 Saat 09:32

Mehmet bey ilginize çok tesekkür ederim.
 
Sorun çözüldü.
 
Hayirli isler.
]]> Tue, 31 May 2011 09:32:34 +0000 http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14657.html#14657 <![CDATA[Excel'den Stok Sabit Degistirme : Cells(say,3) önünde ve arkasinda...]]> http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14655.html#14655 Yazar: mbaykan
Konu: 2616
Gönderim Zamanı: 30 Mayıs 2011 Saat 22:29


Cells(say,3) önünde ve arkasinda tek tirnak konuyor mu?
sizin kodunuzda görülmüyor
benim foruma yazdigimi kopyalayip yapistirin
olacaktir
]]> Mon, 30 May 2011 22:29:52 +0000 http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14655.html#14655 <![CDATA[Excel'den Stok Sabit Degistirme : Mehmet bey sikmadiniz aksine güzel...]]> http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14651.html#14651 Yazar: unalh
Konu: 2616
Gönderim Zamanı: 30 Mayıs 2011 Saat 17:54

Mehmet bey sikmadiniz aksine güzel bilgiler paylastiniz bu paylasim için tesekkür ederim.
 
Veri tabanlarimda türkçe fonksiyonlar olusturdum üç ayri firmada bunlari test ettim sikintisiz çalisiyorlar.
 
Veri alirken gayet güzel sonuçlar veriyor.
 
Yanliz söyle bir durum var stok adini degistirmek istedigimde
 
 .Execute -------->   satirinda hata veriyor
 
Örnegin stok adini deneme diye yazarsam hata aliyorum fakat 112566 gibi sayilar yazarsam degistiriyor.
 
Sorun nereden kaynaklaniyor olabilir.
 
 
Sub insertSQL()
Dim cn As Object

'On Error Resume Next
Set cn = CreateObject("ADODB.Connection")
Dim vtSql
Dim say%
   Set cnn = CreateObject("ADODB.Connection")
   cnn.Open "driver={SQL Server};server=" & Range("b1").Value & ";uid=" & Range("b2").Value & ";pwd=" & Range("b3").Value & ";database=" & Range("b4").Value & ""
    Set cmdCommand = CreateObject("ADODB.Command")
    Set cmdCommand.ActiveConnection = cnn
    sonst = [b65536].End(3).Row
    'Satir Kadar Döngü------------------
    For say = 6 To sonst
        vtSql = ""
        vtSql = vtSql & "UPDATE TBLSTSABIT SET STOK_ADI=.dbo.TURKCE('"
        vtSql = vtSql & esctrk(Cells(say, 3))
        vtSql = vtSql & " WHERE STOK_KODU='"
        vtSql = vtSql & Cells(say, 2)
        vtSql = vtSql & "' AND SUBE_KODU=" & Cells(say, 1)
            With cmdCommand
            .CommandText = vtSql
            .CommandType = adCmdText
            .Execute
            End With
      Next say
    'Satir Kadar Döngü Sonu------------------
    cnn.Close
    Set cmdCommand = Nothing
    Set cnn = Nothing
End Sub

Public Function esctrk(gstr)
    Dim geri As String
    geri = gstr
    geri = Replace(geri, "G", "~#G")
    geri = Replace(geri, "S", "~#S")
    geri = Replace(geri, "I", "~#I")
    geri = Replace(geri, "g", "~#g")
    geri = Replace(geri, "s", "~#s")
    geri = Replace(geri, "i", "~#i")
    esctrk = geri
End Function

]]> Mon, 30 May 2011 17:54:23 +0000 http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14651.html#14651 <![CDATA[Excel'den Stok Sabit Degistirme : TRK fonksiyonuyla sizin...]]> http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14647.html#14647 Yazar: mbaykan
Konu: 2616
Gönderim Zamanı: 30 Mayıs 2011 Saat 12:30

TRK fonksiyonuyla sizin tablonuzun hiç bir baglantisi yoktur

excelde esctrk fonksiyonu GSI harflerini sirasiyla ~#G , ~#S ve ~#I harflerine dönüstürür
ve SQL'e giden dönüstürülmüs text'imize de tfTRK fonksiyonu 3'er harfle gelmis olan türkçelerine
karsilik gelen Ð,Þ ve Ý harflerini yerlestirir (~# ler silinir). Sonuçta Text'imizin orjinal uzunlugu 10 karakter
ise sql'de bu fonksiyon yardimi ile tekrar 10 karaktere dönüsür.

evet kullandiginiz tüm sirketlerde tfTRK fonksiyonunu olusturmaniz(CREATE) gerekiyor
sorunlu türkçe karakter kullaniminiz yoksa söz konusu fonksiyonlara gerek yoktur.

SQL Management Studio'da ilgili sirket veritabanini seçtikten sonra
New Query ile açtiginiz pencereye tfTRK fonksiyonunun kodunu yapistirip
F5'e basarak olusturacaksiniz.
daha önce VIEW veya benzeri bir çalismaniz olmussa SQL Management Studio'yu kullanmis olmalisiniz.
Eger siz herhangi bir nedenle yapamiyorsaniz. yapacak birinden yardim almalisiniz
uzun bir açiklama yaptim. umarim sikmamisimdir.
Kolay gelsin


Düzenleyen mbaykan - 30 Mayıs 2011 Saat 13:00]]> Mon, 30 May 2011 12:30:26 +0000 http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14647.html#14647 <![CDATA[Excel'den Stok Sabit Degistirme : Mehmet bey merhabalar, Bu fonksiyonun...]]> http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14645.html#14645 Yazar: unalh
Konu: 2616
Gönderim Zamanı: 30 Mayıs 2011 Saat 08:31

Mehmet bey merhabalar,

Bu fonksiyonun text degerlerde kullanildigini biliyorum bunnula ilgili bir sikinti yoktur fakat söylemek istedigim benim kullandigim veri tabaninda birinci mesajda verdigim foknsiyon kullanilmis türkçeye çevirim için bu fonksiyon için'de excelde esctrk fonksiyonunu kullansak ayni islemi görürmü yoksa veri tabanina [dbo].[tfTRK] adi ile yeniden bir fonksiyonmu olusturmak gerekiyor.
 
Eger yeni fonksiyon olusturmak gerekirse benim veritabanimda Sirket_1 Sirket_2 gibi kullandigim 3 tane sirket var bunlarin herbirine tanimlamam gerekiyor bu islemi nasil yapabilirim. 
 
]]> Mon, 30 May 2011 08:31:28 +0000 http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14645.html#14645 <![CDATA[Excel'den Stok Sabit Degistirme : CREATE FUNCTION .(@A NVARCHAR(4000)) RETURNS...]]> http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14644.html#14644 Yazar: mbaykan
Konu: 2616
Gönderim Zamanı: 29 Mayıs 2011 Saat 13:55

CREATEFUNCTION [dbo].[tfTRK](@A NVARCHAR(4000))

RETURNS NVARCHAR(4000)

AS

BEGIN

  DECLARE @TMP NVARCHAR(4000)

  SET @TMP = REPLACE(@A , '~#G', N'Ð')

  SET @TMP = REPLACE(@TMP ,'~#S', N'Þ')

  SET @TMP = REPLACE(@TMP ,'~#I', N'Ý')

  SET @TMP = REPLACE(@TMP ,'~#i', N'ý')

  SET @TMP = REPLACE(@TMP ,'~#g', N'ð')

  SET @TMP = REPLACE(@TMP ,'~#s', N'þ')

   RETURN @TMP

END

]]> Sun, 29 May 2011 13:55:48 +0000 http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14644.html#14644 <![CDATA[Excel'den Stok Sabit Degistirme : vtSql = &#034;&#034;...]]> http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14643.html#14643 Yazar: mbaykan
Konu: 2616
Gönderim Zamanı: 29 Mayıs 2011 Saat 13:32

        vtSql = ""
        vtSql = vtSql & "UPDATE TBLSTSABIT SET STOK_ADI = .dbo.tfTRK('"
        vtSql = vtSql & esctrk(Cells(say, 3))
        vtSql = vtSql & "') WHERE STOK_KODU='"
        vtSql = vtSql & Cells(say, 2)
        vtSql = vtSql & "' AND SUBE_KODU=" & Cells(say, 1)

.dbo.tfTRK isimli fonksiyon SQL'de olusturulacak.
TRK fonksiyonunuzla bir isiniz yok.

Excel'deki bazi türkçe karakterler (GÜIgsi) SQL'e düzgün gönderilemedigi için
esctrk ve .dbo.tfTRK fonksiyonlari birlikte kullanilmasi gerekir. bu fonksiyonlar
verimizin Metin(text) oldugu durumlarda kullanilir.
2. olarak sizin makronuzda kullanidiginiz. Replace(<deger>,",",".") fonksiyonu
nümerik alanlarda ondalik olarak girilen virgül(,)ü nokta(.) ya çevirmek için

Kolay gelsin.


Düzenleyen mbaykan - 29 Mayıs 2011 Saat 13:38]]> Sun, 29 May 2011 13:32:03 +0000 http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14643.html#14643 <![CDATA[Excel'den Stok Sabit Degistirme : Merhabalar, Veri tabaninda...]]> http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14642.html#14642 Yazar: unalh
Konu: 2616
Gönderim Zamanı: 28 Mayıs 2011 Saat 10:53

Merhabalar,
 
Veri tabaninda TRK fonksiyonu olarak
 
CREATE FUNCTION TRK(@A NVARCHAR(4000))
RETURNS NVARCHAR(4000)  
AS 
BEGIN
  DECLARE @TMP NVARCHAR(4000) 
  SET @TMP = REPLACE(@A COLLATE LATIN1_GENERAL_BIN, CHAR(208), N'G')
  SET @TMP = REPLACE(@TMP COLLATE LATIN1_GENERAL_BIN, CHAR(220), N'Ü')
  SET @TMP = REPLACE(@TMP COLLATE LATIN1_GENERAL_BIN, CHAR(222), N'S')
  SET @TMP = REPLACE(@TMP COLLATE LATIN1_GENERAL_BIN, CHAR(221), N'I')
  SET @TMP = REPLACE(@TMP COLLATE LATIN1_GENERAL_BIN, CHAR(214), N'Ö')
  SET @TMP = REPLACE(@TMP COLLATE LATIN1_GENERAL_BIN, CHAR(199), N'Ç')
  SET @TMP = REPLACE(@TMP COLLATE LATIN1_GENERAL_BIN, CHAR(73), N'I')
  SET @TMP = REPLACE(@TMP COLLATE LATIN1_GENERAL_BIN, CHAR(240), N'g')
  SET @TMP = REPLACE(@TMP COLLATE LATIN1_GENERAL_BIN, CHAR(252), N'ü')
  SET @TMP = REPLACE(@TMP COLLATE LATIN1_GENERAL_BIN, CHAR(254), N's')
  SET @TMP = REPLACE(@TMP COLLATE LATIN1_GENERAL_BIN, CHAR(105), N'i')
  SET @TMP = REPLACE(@TMP COLLATE LATIN1_GENERAL_BIN, CHAR(246), N'ö')
  SET @TMP = REPLACE(@TMP COLLATE LATIN1_GENERAL_BIN, CHAR(231), N'ç')
  SET @TMP = REPLACE(@TMP COLLATE LATIN1_GENERAL_BIN, CHAR(253), N'i')
  RETURN @TMP
END
 
Tanimlanmis ben stok isimlerini degistirmek istiyorum bunagöre excel sayfasina nasil bir fonksiyon yazmam gerekiyor.
 
Excel dosyasi ekte.
 
http://www.upload.gen.tr/d.php/www/wts4du5b/STSABIT_Update.xls.html
 
 
Yardimlariniz için simdiden tesekkür ederim.


Düzenleyen unalh - 28 Mayıs 2011 Saat 10:57]]> Sat, 28 May 2011 10:53:52 +0000 http://www.erpne.org/excelden-stok-sabit-degistirme_topic2616_post14642.html#14642