excel vba - VBA replace multiple strings from a separate list -


I need to change STRINGS but so far I have been able to change words only. The code is going through the details column and it is going to change every sequence from the list.

Instead of using full words ( old values ​​), use the abbreviation ( new value ) each time a neighbor (no place) Character etc., the code fails. what is wrong? Thanks! 

  SubRespace word_BUT_Need_ToReplaceStrings () application.ScreenUpdating = False 'This macro works with different words only remove hyphens etc. before applying this macro. Range in the form of mandaroo, as a range dim c1 worksheet, in the form of s2 worksheet, integer as the last line, in the form of v string, j as integer, old as string, string Newv string as LastRow = Room (Rows, "A"). (XlUp). S1 = Set Sheets ("JE_data") Set s2 = Sheets ("ListToReplace") Set A = s1.Range ("J: J"). Chambers Special call (xlCellTypeConstants) for each R for a = v = R.Value for last 2 = 2 = j2 = C2 (2) .csells (j, 1) .text newv = s2.Cells (j, 2) .text

'Change the function as you' I used it case sensitive. 'Are you certain that all your invoices begin with capital letters? 'If not, replace OK v = instead of (v, oldv, newv, 1, -1, vbTextCompare) function. V = change (v, oldv, newv, 1, -1, vbTextCompare) v = replace (v, oldv, newv) next j r.Value = trim (v) next r application Example:

place for the listing 

  left column ( Old) right column (new) ---------------------------------------- Invoice income pay C credit no.

JE_data 

  note note NY / 2712/14 RF / 022 9/14 Invoice 1078 10 TECHNOQ01SI 2014 03288

( Editor's note: I do not know that the example is right because this comment

was replaced with cr and invoice inv Code> but it was not

Change the function as you have used This case is sensitive is. Are you certain that all your invoices begin with capital letters? If not, change 

  v = (v, oldv, newv, 1, -1, vbTextCompare)

instead of the function.


-

Comments

Post a Comment

Popular posts from this blog

Member with no value in F# -

After I am trying to convert F # to the following C # code: [StructLayout (LayoutKind.Sequential, charset = CharSet.Ansi)] Private class DOCINFOA {[MarshalAs (UnmanagedType.LPStr)] public string nomeDocumento; [Marshall (UnmanagedType.LPStr)] Public string arquivoSaida; [Marshall (UnmanagedType.LPStr)] Public String Tipodo; } I am doing the following: Named place printer module RawPrinterHelper = [& LT; StructLayout (LayoutKind.Sequential, charset = CharSet.Ansi) & gt;] Type DOCINFOA = [& LT; MarshalAs (UnmanagedType.LPStr) & gt;] Member this.nomeDocumento [& LT; MarshalAs (UnmanagedType.LPStr) & gt;] Member this.arquivoSaida [& LT; MarshalAs (UnmanagedType.LPStr) & gt;] Member This Tipoda [/ code> But I get: One type of definition is necessary for one or more members . Can I vacate these members? you val code> member : [& lt; StructLayout (LayoutKind.Sequential, charset = CharSet.Ansi) & gt;] Type DOCINFOA = [...
Read more

java - Joda Time Interval Not returning what I expect -

मेरे पास निम्न प्रोग्राम है import java.util। *; Import java.text। *; आयात करें org.joda.time। *; सार्वजनिक श्रेणी के स्कोप कंट्रोल {सार्वजनिक स्थिर अंतराल मिलनसार () {दिनांक समय currDate = नया दिनांक समय (2008, 4, 4, 15, 30, 0, 0); दिनांक समय epochDate = नया दिनांकटाइम (2000, 1, 1, 12, 0, 0, 0); अंतराल अंतराल = नया अंतराल (युरोप डेट, करोडेट); वापसी अंतराल; } सार्वजनिक स्थिर शून्य मुख्य (स्ट्रिंग [] आर्ग्स) {डबल दिनबात = मिलते समय ()। ToDurationMillis () / 1000/60/60/24; StdOut.println (daysBtween); }} मुझे आउटपुट मिल रहा है: 3016.0 लेकिन जो मैं देख रहा हूं वह है: 3016.1458333333 मैं क्या कर रहा हूँ ? toDurationMillis एक लंबा लौटा देता है, और प्रत्येक प्रभाग को int के रूप में घोषित किया जाता है। जावा इस प्रकार इनट्स को लॉन्ग में परिवर्तित कर देगा और डिवीजन को लंबे समय तक लौटाना होगा। परिणाम को अंत में दोहरे रूप में परिवर्तित करना। डबल्स का उपयोग करके अभिव्यक्ति करने के लिए जावा को बताने के लिए, अभिव्यक्ति के किसी भी घटक को दोहरे रूप में घोषित करें। उदाहरण के लिए: ...
Read more

c# - Showing a SelectedItem's Property -

So I have enabled a rightclick option for my DataGrid. I want to display the only chosen property but it is not behaving like what I would like it to display my name and additional. Public category Paymentinfo {public int PaymentNo {get; Set; } Public string date {get; Set; } Public Double Pay {get; Set; } Public Double Principle {get; Set; } Public Double Interest {get; Set; } Public Double Balance {Received; Set; }} Private Zero MenuItem_OnClick (Object Sender, RoutedEventArgs e) {MessageBox.Show (AmortGrid.SelectedItem.ToString ()); } I'm trying to apply it without using a View Module! If I place a breakpoint where the messagebox and the recipient place it on selected ITEM, then this property will display the payment. A date-payment-principle-interest-balance is the only value that needs payment. Was hoping that it would be something like this MessageBox.Show (AmortGrid.SelectedItem.PaymentNo.ToString ()); When you call ToString () So you get the class typ...
Read more