[Yardım]  Yardımcı olabilecek arkadaşlar

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Yardımcı olabilecek arkadaşlar

İleti#1)  mutu54 » 09 Ekm 2018 10:12

merhabalar size excel vba hakkında bir soru sormak istiyorum yardımcı olursanız sevinirim
=EĞER(VE(D2="";H2="");BİRLEŞTİR(F2;"-";I2;"-";J2;"-";K2);"")&EĞER(VE(F2="";D2="");BİRLEŞTİR(H2;"-";I2;"-";J2;"-";K2);"") & EĞER(VE(F2="";H2="");BİRLEŞTİR(D2;"-";I2;"-";J2;"-";K2);"")
excel içerisinde yazdığım bu formülü döngü halinde vbada kullanmak istiyorum ama sadece a sütununda uygulamak istiyorum sayfada formül olsun istemiyorum vba da çalışıp sonucu hücreye yazsın istiyorum
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Yardımcı olabilecek arkadaşlar

İleti#2)  ahfirat » 09 Ekm 2018 18:24

Sub fr()
'


For i = 2 To 30
Cells(i, 1).Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[3]="""",RC[7]=""""),CONCATENATE(RC[5],""-"",RC[8],""-"",RC[9],""-"",RC[10]),"""")&IF(AND(RC[5]="""",RC[3]=""""),CONCATENATE(RC[7],""-"",RC[8],""-"",RC[9],""-"",RC[10]),"""") & IF(AND(RC[5]="""",RC[7]=""""),CONCATENATE(RC[3],""-"",RC[8],""-"",RC[9],""-"",RC[10]),"""")"
Range("A2").Select
Next i
Columns("A:A").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(2, 1).Select
Application.CutCopyMode = False

End Sub
Kullanıcı avatarı
ahfirat
Yeni Başlamış
 
Kayıt: 10 Oca 2018 11:18
Meslek: inşaat mühendisi
Yaş: 39
İleti: 29
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: mersin

Cevap: Yardımcı olabilecek arkadaşlar

İleti#3)  mutu54 » 10 Ekm 2018 12:06

Çok Teşekkür Ederim hocam Birşey Daha Sormak İstiyorum
Dim iSonSatir As Integer, ws As Worksheet
Set ws = Worksheets("İşe Giriş Bildirgesi Data")
iSonSatir = ws.Cells(ws.Rows.Count, 16).End(xlUp).row
nextBlankRow = iSonSatir + 1
' iL girilmediğinde cıkan mesaj
If Range("FA105") = "" Then
MsgBox "Lütfen Formu Doldurunuz !!!"
Range("FA105").Select
Exit Sub
End If
' sayfaya transfer kodları
Sayfa36.Cells(nextBlankRow, 1) = Range("GK362")
Sayfa36.Cells(nextBlankRow, 9) = Range("GL49")
Sayfa36.Cells(nextBlankRow, 10) = Range("CE143")
Sayfa36.Cells(nextBlankRow, 11) = Range("CE357")
Sayfa36.Cells(nextBlankRow, 12) = Range("GT81")
Sayfa36.Cells(nextBlankRow, 13) = Range("GQ85")
Sayfa36.Cells(nextBlankRow, 14) = Range("GH89")
Sayfa36.Cells(nextBlankRow, 15) = Range("JL88")
Sayfa36.Cells(nextBlankRow, 16) = Range("JZ88")
Sayfa36.Cells(nextBlankRow, 17) = Range("JZ92")
Sayfa36.Cells(nextBlankRow, 18) = Range("JW98")
Sayfa36.Cells(nextBlankRow, 19) = Range("JW106")
Sayfa36.Cells(nextBlankRow, 20) = Range("FA105")
Sayfa36.Cells(nextBlankRow, 21) = Range("HE121")
Sayfa36.Cells(nextBlankRow, 22) = Range("HE126")
Sayfa36.Cells(nextBlankRow, 23) = Range("HE131")
Sayfa36.Cells(nextBlankRow, 24) = Range("HE136")
Sayfa36.Cells(nextBlankRow, 25) = Range("HE141")
Sayfa36.Cells(nextBlankRow, 26) = Range("HE146")
Sayfa36.Cells(nextBlankRow, 27) = Range("HE151")
Sayfa36.Cells(nextBlankRow, 28) = Range("HE156")
Sayfa36.Cells(nextBlankRow, 29) = Range("HE161")
Sayfa36.Cells(nextBlankRow, 30) = Range("HE166")
Sayfa36.Cells(nextBlankRow, 31) = Range("HE171")
End Sub
Bu kodları Kaydet İçin kullanıyorum Bunun Güncelleme Kodlarını nasıl Olusturabilirim
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Yardımcı olabilecek arkadaşlar

İleti#4)  mutu54 » 10 Ekm 2018 12:16

yapmak istediğim bu kodlarla kayıt yapıyorum ve kayıt ettiğim sayfada bir güncelleme yapmak istediğimi arayıp bulup sadece orayı değiştirmek istiyorum
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Yardımcı olabilecek arkadaşlar

İleti#5)  ahfirat » 10 Ekm 2018 15:35

örnek dosya eklerseniz..daha anlaşılır olur..bul - değiştir komutunu makroylamı yapmak istiyorsunuz?
Kullanıcı avatarı
ahfirat
Yeni Başlamış
 
Kayıt: 10 Oca 2018 11:18
Meslek: inşaat mühendisi
Yaş: 39
İleti: 29
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: mersin

Cevap: Yardımcı olabilecek arkadaşlar

İleti#6)  mutu54 » 10 Ekm 2018 16:47

Evet hocam
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Yardımcı olabilecek arkadaşlar

İleti#7)  mutu54 » 10 Ekm 2018 17:08

Private Sub CommandButton9_Click()
ara = VBA.Trim(Sayfa11.Cells.Range("GA358"))
If ara = "" Then MsgBox "Güncellemek isteğinizi seçiniz ! ", vbSystemModal + vbInformation, ""
With Sheets("KimlikData")
sonKayit = .Range("A65535").End(xlUp).row
If sonKayit < 2 Then MsgBox "Veri Sayfasında Kayıt Bulunamadı.", vbSystemModal + vbInformation, "A:A"
Set bul = .Range("A2:A" & sonKayit).Find(What:=ara, LookIn:=xlValues, LookAt:=xlPart)
If Not bul Is Nothing Then
.Cells(bul.row, 20) = Range("EJ307")

Else: MsgBox "Aradığınız Kayıt Bulunamadı"
End If
End With
MsgBox "Güncelleme Başarıyla Yapılmıştır"
End Sub
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Yardımcı olabilecek arkadaşlar

İleti#8)  mutu54 » 15 Ekm 2018 10:04

bunu yaptım fakat değiştirmiyor içeriden veriyi


Son güncel tutan mutu54, 15 Ekm 2018 10:04.
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Bing[Bot], Google [Bot] ve 4 misafir

Bumerang - Yazarkafe