USERFORM TO PDF

[cocoa35]

Arkadaşlar merhaba ; ek'teki dosyada bulunan örnek'te userform'da bulunan bir resmin üstüne tık'landığında PDF olarak kaydeden kod'lar bulunmaktadır. Sorun şu! bu kod'lar bazı bilgisayarlar'da çalışıyor bazısında çalışmıyor hata veriyor! sorun nerede olabilir acaba?

 

[tamer42]

Arkadaşlar merhaba ; ek'teki dosyada bulunan örnek'te userform'da bulunan bir resmin üstüne tık'landığında PDF olarak kaydeden kod'lar bulunmaktadır. Sorun şu! bu kod'lar bazı bilgisayarlar'da çalışıyor bazısında çalışmıyor hata veriyor! sorun nerede olabilir acaba?

32 bit / 64 bit farkından olabilir mi? bu durumu hiç kontrol ettiniz mi?

 

[Korhan Ayhan]

Nerede hata veriyor? Bu kısım önemli..

Bu detayı vermezseniz nasıl çözüm üretebiliriz..

 

[cocoa35]

Ek'li bölümler hata veriyor Bigisayarım 64 Bit Excel 32 Bit

 

[cocoa35]

Tamam düzeldi "Bitmap" ingilizce yazıldığı için hata veriyormuş " Bit eşlem" olarak düzelttim düzeldi teşekkürler.

 

[cocoa35]

Merhaba; yukarıdaki konu ile ilgili bir şey danışmak istiyorum. Örnek doyadaki kod'larda eğer excel dili ingilizce ise "Bitmap" yazılması, eğer excel dili türkçe ise "Bit işlem" yazıldığında program hatasız çalışıyor. Peki sormak istiyorum bu kod'larda hem ingilizce hem türkçe excel dosyasında çalışabilmesi için bir düzenleme yapılabilirmi? Teşekkürler.

 

[tamer42]

Merhaba; yukarıdaki konu ile ilgili bir şey danışmak istiyorum. Örnek doyadaki kod'larda eğer excel dili ingilizce ise "Bitmap" yazılması, eğer excel dili türkçe ise "Bit işlem" yazıldığında program hatasız çalışıyor. Peki sormak istiyorum bu kod'larda hem ingilizce hem türkçe excel dosyasında çalışabilmesi için bir düzenleme yapılabilirmi? Teşekkürler.

Prosedür içine aşağıdaki kodları ekleyin,

Dim Lng As Long
  Dim Bit As String
  
   Lng = Application.LanguageSettings.LanguageID(msoLanguageIDUI)
    
    If Lng = 1055 Then
    
        Bit = "Bit eşlem"

    Else

        Bit = "Bitmap"

    End If

daha sonra mevcut kodu bu şekilde düzeltin

  With ws
  
    .PasteSpecial Format:=Bit, Link:=False, DisplayAsIcon:=False
    
.............................
    
  End With

 

[Korhan Ayhan]

Benzer bir problem için sunduğumuz çözümü inceleyiniz.

Koşullu Biçimlendirme kodunun İngilizce formüllerle yapılması

Merhaba Arkadaşlar, Aşağıda Korhan Ayhan üstada ait VBA Kodu var. Bu koddaki Türkçe formülleri İngilizce yazmanın bir yolu var mıdır ? Sub Bicimlendir() With Range("C7:C999") .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression...

www.excel.web.tr

 

[cocoa35]

Çok teşekkürler tamer42 destek ekibi ve korhan bey işlem gayet iyi çalışıyor.